NOTES AND TO-DO’s:

Week of 9/13

  • Write a methodology and data sources sections - 2 and 3 (Sofia)
  • Annotate maps and charts, to contain proper titles, axis titles, and styling (Sofia)
  • Add section number references to takeaways, refine risk indicators.

Week of 9/20

  • Create graphics for each venue zoom in - see end of document - sect 9
  • Create some general census maps, tables, figures to illustrate economic geography in Nashville and changes (Sofia) - Sect. 8.1.

Unknown timeframe

  • Add capacity data and re-run data_markdown with “venue ladder” and cfp comparison (TBD - ??)
  • Render graphics for document

Recently finished:

  • Associate license data with venues in a separate script (Sofia) - by 9/15
  • Fix some venue data points - before re-running with licenses (Michael): Nissan Stadium events/month, 3rd and Lindsley independence - DONE
  • Add property condition, year built, building use and other data in the data_markdown (Michael) DONE
  • Analyze recent sales values and impart risk scores (Michael) - DONE
  • Do some comparisons with CFP database (Michael) - DONE
  • k-means clustering (Michael)
  • Please double check the census data for Nashville (Sofia) - DONE - Michael 9/18
# LOAD IN THE CFP DATA FOR COMPARISONS

# Read in district aggregates
d1_aggregates <- st_read("~/GitHub/CFP/unified__city_data/district_aggregates/d1_aggregates_11_16_22.geojson") %>%
  st_as_sf(crs = 4326)

d2_aggregates <- st_read("~/GitHub/CFP/unified__city_data/district_aggregates/d2_aggregates_06_15_23.geojson") %>%
  st_as_sf(crs = 4326) %>%
  rename(d2_name = d2_name.x)


# Read in venues
main_venue_data <- read.csv("~/GitHub/CFP/unified__city_data/main_venue_data_final_testSydney.csv") %>%
  mutate(city = ifelse(city == "Solna", "Stockholm", city))

# Read in EPSG information

source("~/GitHub/CFP/unified__city_data/epsg_list.R")
# LOAD IN THE NASH DATA

# Read in district aggregates
d1_aggregates_nash <- st_read("~/GitHub/Nashville_IMV/data/venue_tables/to_map/d1_aggregate_v6.geojson") %>%
  st_as_sf(crs = 4326) %>%
  rename(venue_count = num_venues,
         d1_name = Communit_1)

d2_aggregates_nash <- st_read("~/GitHub/CFP/unified__city_data/district_aggregates/d2_aggregates_06_15_23.geojson") %>%
  st_as_sf(crs = 4326) %>%
  rename(d2_name = d2_name.x)


# Read in venues - THIS IS THE FILEPATH IN Data_Markdown.Rmd as of 9/19/2023
nash_venue_data <- st_read("~/GitHub/Nashville_IMV/data/venue_tables/to_map/venues_v6.geojson") %>%
  st_transform(crs = 4326) %>%
  group_by(name) %>%
  slice(1) %>%
  ungroup() %>%
  mutate(x=map_dbl(geometry, ~st_centroid(.x)[[1]]),
         y=map_dbl(geometry, ~st_centroid(.x)[[2]])) %>%
  mutate(X = row_number()) %>%
  as.data.frame()
library(ggmap)
## Google's Terms of Service: https://cloud.google.com/maps-platform/terms/.
## Please cite ggmap if you use it! See citation("ggmap") for details.
ll <- function(dat, proj4 = 4326){
st_transform(dat, proj4)
}
base_map1 <-get_stamenmap(bbox = unname(st_bbox(ll(st_buffer(st_centroid(d1_aggregates_nash),10000)))),
                    force = TRUE, maptype = "toner-lite", zoom = 11)
## Warning in st_centroid.sf(d1_aggregates_nash): st_centroid assumes attributes
## are constant over geometries of x

1. Key Takeaways

Nashville is a globally significant live music cluster, comparable in scale to major international cities. It is, however, not characterized by an experimental or community-oriented programming approach. Nashville’s IMVs are regarded by local music experts and community members as more likely to present experimental and local programming with a focus on the promotion of music and artists. IMVs are less likely to locate near the Downtown center of the cluster, and they are paying less, on average, for rent. This is consistent with observed patterns in Nashville and elsewhere where venues trade off investments in programming against rents. It also suggests that they are more risk-averse and vulnerable. Venues that regarded as likely to have operational relationships with corporate partners are willing to pay more in rent and tolerate more risk.

Data governance and procedures related to live music, and government land and licensing records more generally, are lacking. Open data portals do not publish common data sets. Licensing and land use classifications do not capture coherent administrative data about live music, and internal data governance is poor - meaning that meaningful records cannot be easily examined or related, and therefore cannot be understood in everyday decisionmaking.

1.1. Venue database characteristics

  • Researchers, community members, and focus group experts identified 253 spaces used for music in Nashville on a periodic or regular basis (Section 4). 113 of these were identified as being “Music Spaces”, where music is likely to be the primary offer, and events are held more than once per week. The remainder (140) were considered “Occasional Music Spaces” (Section 4.1.2)

  • 24 of these Music Spaces (and 14 Occasional Music Spaces) were identified by researchers, community members, and focus group experts as likely to be IMVs (Completely independent ownership and operations). 49 Music Spaces were identified as being “Quasi-Independent” because some of their functions were assessed as likely to be contracted to corporate outside entities or they had legal ownership affiliations to other businesses. 40 Music Spaces were assessed as likely to be completely non-independent.

1.2. Community programming assessment

  • Community members and focus group experts assessed the likelihood of different types of program characteristics as a way to understand how locally or artistically focused the venue’s cultural offer was likely to be. Although this is an obviously subjective exercise, it allows a broad understanding of how Nashvillians understand the nature of programming in the city’s venues.

  • IMVs were, on average, more likely to present experimental programming than Quasi-Independent or Non-Independent music spaces. However, amongst all venue classifications, experimental programming was seen as generally unlikely to be presented in Nashville venues. Compared to VibeLab/Praxis’ Creative Footprint venue survey (which collects the same metric), Nashville venues were, on average ranked lowest for experimental likelihood amongst all 7 cities.

  • IMVs are, on average, more likely to present community-focused programming than Quasi-Independent or Non-Independent music spaces.

  • IMVs are, on average, more likely to promote lineups and artists in their marketing than Quasi-Independent or Non-Independent music spaces.

  • Non-Independent venues were assessed to be dramatically more likely to put on non-music programming - including talks, films, panel discussions or other types of entertainment-driven, non-music uses. IMVs and Quasi-IMVs seem to be more likely to focus on music as a singular program type.

1.3. Economic Geography

  • Music spaces make strong locational choices based on a range of factors - including access to transportation and customers, but also based on land costs that allow for risk-taking in programming - local content, experimental content, and a music-focused program.

  • Nashville music spaces, like those observed elsewhere by CFP, are trading off programming investments and rents. - Regardless of type - music spaces with lower appraised value are observed to be more likely to present community-oriented and experimental programming (IMV or not).

  • Venues are also trading off independence against financial risk. IMVs are located in areas with dramatically lower land values than Quasi-IMVs and non-IMVs, on average. It’s not clear the degree to which this might have been different before major closures in 2019-22 - but some notable former IMVs with high real estate risk moved into the Quasi and non-IMV categories. IMVs, by location, are exposed to lower localized sales volumes, lower ratio of venue land value to nearby venue land value) than non-IMV Music Spaces.

  • The geographic center of gravity of Nashville’s live music cluster is Downtown. It is an incredibly dense cluster, with 52 music spaces and 55 occasional music spaces. However, IMVs tend to be located, on average, further from this centroid. Less than 10% of these music spaces are IMVs. IMVs are most concentrated in East Nashville, South Nashville. The downtown planning area has the highest percentage change in population density and rents amongst any Metro planning area from 2010-2020 - suggesting that the attractiveness of Downtown is increasing, and that conflicts with residents are inevitable. This is the area most frequented by tourists and best served by regional transportation. But the policy focus on the central cluster, by default, excludes IMVs.

  • On average, venues in South, North, East and West Nashville were assessed by local focus groups and community members as having higher likelihood of experimental, community focused program than Downtown.

1.4. Land Use, Regulation and Building Characteristics

  • Live music is played in an extraordinary variety of contexts in Nashville - in concert halls and auditoriums, but also in strip malls, restaurants, and stores, mixed use complexes with apartments or offices, hotels and even on docks and marinas. Most of the time, when music is being played, it’s on land that is primarily being designated for use as something else. IMVs and Quasi-IMVs are more likely to be in bar/nightclub, restaurant or retail contexts, whereas Non-Independents span a very wide variety of uses, including large format industrial reuse and institutional spaces.

  • Building quality - building stock was generally listed as being “Average” with a small few exceptions

  • Zoning - what are the types we are seeing SOPHIA CAN YOU CHECK ON THE ZONING DESCRIPTIONS?

  • Capacities - need this from fire.

  • Zoning, Land Use and Business Licensing data and classifications do not capture the location or nature of live music activity in Nashville, making it extremely difficult to monitor the activity in the sector or direct aid or funding to it. Only 3 (THREE) businesses that were identified as primarily Music Spaces were listed with a primary business type of Performance Space. Most are listed as Drinking or Food estabilishments. Only 18.5% of music spaces and occasional music spaces have are identified in administrative records as having events, music, theater or nightclub use.

  • Data governance related to these sets is far below national standards - in terms of open data availability, inter-operatiblity of government record systems and data teams, and in terms of the meaningful administrative indicators related to live music. There is no ability to understand live music through licensing, business, or land records.

1.5. Multi-City Comparison with CFP Database

  • Nashville has a higher per capita number of spaces where music is being presented (either occasionally or as a primary function) than was observed during CFP studies of New York (2018), Berlin (2017), Tokyo (2019), Stockholm (2021) or Montreal (2022). Of CFP cities, only Sydney had higher density - albeit in a study confined to a small portion of the metro area (2023).

  • Downtown Nashville is one of the highest density clusters of venues - comparable in size to centreal Berlin districts and Tokyo’s Shibuya. East Nashville is also a globally significant cluster - with a number of venues rivaling that of major areas of nightlife.

  • Amongst CFP cities - Nashville has a program profile most similar to that of Stockholm - relatively low scores on experimentation, community program - but it was ranked comparatively well on the fact that venues promote music as a core offer. This comparison is based on all of the music spaces collected in in the community process, not just the regular music spaces (other CFP city databases also consist of spaces that host music a minimum of once per month)

  • Nashville is similar to Montreal and Sydney in that it is automobile oriented - with demographic indicators less heavily driven by bid-rent functions and agglomeration effects associated with fixed transportation.

1.7. Risk Exposure

IMVs, Quasi-IMVs and Non-IMVs are exposed to similar amounts of development risk, on average. However, IMVs are far less prepared to offset risk than their competitors.

We define cost risk exposure as a composite measure of the intensity of nearby real estate, relative cost of nearby real estate activity, lack of site control, building condition, community-assessed programming investments, and community identified threats from licensing or neighbor conflicts.

1.8. US Census Analysis

TBD

2. Data Sources

  • IMV data set

  • Chamber of Commerce Data (link)

  • US Census

  • Nashville Metro Cadastral

  • Nashville Metro Parcels, Property Characteristics

  • Nashville Metro Fire Inspection Data

  • Nashville Planning Districts

  • Business license data

3. Methods

What did we do?

We collected the data set with liaisons, community members and desk research

We related each venue to it’s APN number (a property identifier) and joined it to tax records, license records.

We created variables for sq ft costs, dist to CBD centroid, joined venues to districts and summarized programming variables.

4. Venue Database

Searchable database

datatable(nash_venue_data, 
          options = list(pageLength = 10))

4.1. Total number of venues

  • How many venues
nrow(nash_venue_data)
## [1] 253

4.1.2. Number of IMVs

What is a dedicated music venue? What is an independent music venue?

A music space - More than 1 show per week (5+ per month), is live music the purpose rated “somewhat likely” or “very likely”

nash_venue_data %>%
  group_by(music_space) %>%
  tally()
## # A tibble: 2 × 2
##   music_space                n
##   <chr>                  <int>
## 1 Music Space              113
## 2 Occasional Music Space   140
nash_venue_data %>%
  group_by(music_space, IMV) %>%
  tally()
## # A tibble: 6 × 3
## # Groups:   music_space [2]
##   music_space            IMV                           n
##   <chr>                  <chr>                     <int>
## 1 Music Space            Indep. Owned and Operated    24
## 2 Music Space            Non-Independent              40
## 3 Music Space            Quasi-independent            49
## 4 Occasional Music Space Indep. Owned and Operated    14
## 5 Occasional Music Space Non-Independent              66
## 6 Occasional Music Space Quasi-independent            60

4.2. Venue locations

Music spaces

ggplot()+
    geom_sf(data = d1_aggregates_nash,
          fill = '#f0f0f0', 
          color = 'white')+
  geom_point(data = nash_venue_data,
             aes(x = x, y = y, color = music_space),
             alpha = 0.3, size = 1)+
  mapTheme

Music spaces by indepenence

ggplot()+
    geom_sf(data = d1_aggregates_nash,
          fill = '#f0f0f0', 
          color = 'white')+
  geom_point(data = nash_venue_data %>%
               filter(music_space == "Music Space"),
             aes(x = x, y = y),
             alpha = 0.3, size = 1)+
  facet_wrap(~IMV)+
  mapTheme

4.2.1. Interactive Map

l <- leaflet() %>% 
  addProviderTiles(providers$Esri.WorldTopoMap) %>%
  setView(lng = mean(nash_venue_data$x, na.rm = TRUE),
          lat = mean(nash_venue_data$y, na.rm = TRUE),
          zoom = 10) %>%
  addScaleBar(position = "topleft") %>%
  addCircleMarkers(data= nash_venue_data,
                   lng=~x, 
                   lat=~y,
                   radius =~ 1, 
                   fillOpacity =~ 1,
                   color =~ "blue",
                   label=~paste(name, address_admin, IMV))

l
nash_venue_data %>%
  st_as_sf(coords = c("x","y"), 
           crs= 4326) %>%
  filter(music_space == "Music Space") %>%
  select(name, address_admin, APN, IMV, ownership_structure, independent_booking, capacity, TotlAppr) %>%
  mapView(., zcol = "IMV")

4.2.2. Heat map (ggplot)

This is JUST FOR MUSIC SPACES, does not include occasional music spaces

fishnet <- st_make_grid(d1_aggregates_nash %>%
                          st_transform(crs = 2274), 
                        cellsize = 5280) %>% #size in feet - half mile
  st_sf() %>%
  st_transform(crs = 4326)

fishnet <- fishnet[d1_aggregates_nash %>%
                          st_transform(crs = 4326),] %>%
  mutate(uniqueID = rownames(.)) %>%
  select(uniqueID) %>%
  mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
         lat=map_dbl(geometry, ~st_centroid(.x)[[2]]))

# Join the fishet to the points

fishnet <- st_join(fishnet, 
                nash_venue_data %>%
                  filter(is.na(x)== FALSE,
                         is.na(y)== FALSE) %>%
                  filter(music_space == "Music Space") %>%
                  st_as_sf(coords = c("x", "y"), crs = 4326), 
                join = st_intersects, 
                left = TRUE) %>%
  select(uniqueID, X) %>%
  group_by(uniqueID) %>% 
  summarise(n_venues = n_distinct(X, na.rm = TRUE)) %>%
  #mutate(n = ifelse(n == 1, 0, n)) %>%
  #rename(n_venues = n) %>%
  as.data.frame() %>%
  select(-geometry) %>%
  left_join(fishnet, .)
## Joining, by = "uniqueID"
# Make sure you set the labels here to reflect the actual max density by cell

max(fishnet$n_venues)
## [1] 41
ggplot()+
  geom_sf(data = d1_aggregates_nash,
          fill = '#f0f0f0', 
          color = 'white')+
  geom_sf(data = fishnet %>%
            filter(n_venues >0), 
          aes(fill = n_venues),
          color = "transparent",
          alpha = 0.4)+
  scale_fill_viridis('VENUES/\nmi^2', direction = -1,
                     limits=c(1,max(fishnet$n_venues)), breaks=c(1, max(fishnet$n_venues)),
                     labels=c("1",max(fishnet$n_venues)))+
  labs(
    title = "VENUE DENSITY - Nashville, 2023",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

ggmap(base_map1) +
 geom_sf(data = ll(fishnet %>%
            filter(n_venues >0)),
            inherit.aes = TRUE,
          aes(fill = n_venues),
          color = "transparent",
          alpha = 0.4)+
  scale_fill_viridis('VENUES/\nmi^2', direction = -1,
                     limits=c(1,max(fishnet$n_venues)), breaks=c(1, max(fishnet$n_venues)),
                     labels=c("1",max(fishnet$n_venues)))+
  labs(
    title = "VENUE DENSITY - Nashville / Davidson County, 2023",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.

4.2.3. Point Map (static)

4.2.4. Map by Planning District (count)

TO DO ONCE d1_aggregates_nash is set

4.3. IMV Status

4.3.1. Independent Ownership

ggplot(data = nash_venue_data %>%
         filter(is.na(ownership_structure) == FALSE))+
  geom_bar(aes(ownership_structure), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Q: Is the venue independently owned and operated?",
    subtitle = "Independence - no association with another business through common ownership\n or affiliation (sharing of employees, resources, branding etc.,)",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~music_space)+
  plotTheme

4.3.2. Corporate Function

ggplot(data = nash_venue_data %>%
         filter(is.na(independent_booking) == FALSE))+
  geom_bar(aes(independent_booking), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Are booking or promotion contracted to corporate partners? ",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~music_space)+
  plotTheme

ggplot(data = nash_venue_data)+
  geom_bar(aes(IMV), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "IMV Status",
    subtitle = "Independent Ownership Structure and Independent Booking & Promotion",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~music_space)+
  coord_flip()+
  plotTheme

4.4. Capacity

4.4.1. Histogram of capacity

NOTE - These data are not complete as of 9/5 - we are awaiting data from Nash FD - these are data from the Chamber’s study several years ago and very incomplete

ggplot(data = nash_venue_data %>%
         mutate(capacity = as.numeric(capacity)) %>%
         filter(capacity < 5000))+
  geom_histogram(aes(capacity), fill = CityPalette[6], alpha = 0.6, binwidth = 250)+
  #scale_fill_viridis_d()+
  labs(
    title = "Capacity",
    subtitle = "Capacities Over 5000 are removed",
    x="",
    y="Occupants",
    #fill = "CFP City",
    caption = "Data: Nashville Fire Dept")+
  plotTheme
## Warning in mask$eval_all_mutate(quo): NAs introduced by coercion

4.4.2. Capacity by IMV status

ggplot(data = nash_venue_data %>%
         mutate(capacity = as.numeric(capacity)) %>%
         filter(capacity < 5000) )+
  geom_histogram(aes(capacity), fill = CityPalette[6], alpha = 0.6, binwidth = 250)+
  #scale_fill_viridis_d()+
  labs(
    title = "Capacity",
    subtitle = "Capacities Over 5000 are removed",
    x="",
    y="Occupants",
    #fill = "CFP City",
    caption = "Data: Nashville Fire Dept")+
  facet_wrap(~IMV)+
  plotTheme
## Warning in mask$eval_all_mutate(quo): NAs introduced by coercion

There is still a ton of missing capacity data as of 8/16 - MF

nash_venue_data %>%
         mutate(capacity = as.numeric(capacity)) %>%
  group_by(IMV) %>%
  summarize(total_capacity = sum(capacity, na.rm = TRUE),
            median_capacity = median(capacity, na.rm = TRUE)) %>%
  kable() %>%
  kable_styling()
## Warning in mask$eval_all_mutate(quo): NAs introduced by coercion
IMV total_capacity median_capacity
Indep. Owned and Operated 2546 151.0
Non-Independent 141286 613.0
Quasi-independent 12597 231.5

4.4.3. Geography of Occupancy

  • Map of occupancies (e.g. occupant load per fishnet cell or per planning area)

4.5. Venue Age

ggplot(nash_venue_data )+
  geom_bar(aes(years_operating), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Years Operating",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data )+
  geom_bar(aes(years_operating), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Years Operating",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_grid(music_space~IMV)+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(years_operating, fill = IMV), position = "dodge", alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Years Operating",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

4.6. Events Per Month

ggplot(nash_venue_data)+
  geom_bar(aes(events_per_month), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Events Per Month - All Spaces",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
        filter(music_space == "Music Space"))+
  geom_bar(aes(events_per_month), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Events Per Month, Music Spaces",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

4.7. Artist Payment

This data isn’t any good - scrapping this

4.6. Programming

  • Bar plots of programming variables (facetted by indie/non)

4.6.1. Experimentation

There is a bi-modal effect with experimentation, it’s either very experimental or not at all.

Maybe a better question is - what percentage of spaces are consider likely to offer experimental content between IMV/Non/Quasi?

Answer - roughly 40%, higher than Quasi and non-IMV

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(experimentation), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Experimentation Likelihood - Music Spaces",
    subtitle = "Q: Compared to other venues in the city: Is this venue a platform for niche or experimental trends, sounds and art forms? Is it a place for experimental performers or extraordinary event concepts?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(experimentation), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Experimentation Likelihood",
    subtitle = "Q: Compared to other venues in the city: Is this venue a platform for niche or experimental trends, sounds and art forms? Is it a place for experimental performers or extraordinary event concepts?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

On average, IMVs are slightly more experimental

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_experimentation = mean(experimentation_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()
## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.
IMV music_space mean_experimentation n
Indep. Owned and Operated Music Space 2.416667 24
Non-Independent Music Space 2.100000 40
Quasi-independent Music Space 2.102041 49
Indep. Owned and Operated Occasional Music Space 1.785714 14
Non-Independent Occasional Music Space 1.409091 66
Quasi-independent Occasional Music Space 1.203390 60
nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  group_by(IMV, experimentation) %>%
  tally() %>%
  mutate(pct = 100*(n/sum(n))) %>%
  kable()
IMV experimentation n pct
Indep. Owned and Operated 1.Not At All Likely 11 45.833333
Indep. Owned and Operated
  1. Not too likely
1 4.166667
Indep. Owned and Operated
  1. Somewhat likely
3 12.500000
Indep. Owned and Operated
  1. Very Likely
9 37.500000
Non-Independent 1.Not At All Likely 20 50.000000
Non-Independent
  1. Not too likely
1 2.500000
Non-Independent
  1. Somewhat likely
14 35.000000
Non-Independent
  1. Very Likely
5 12.500000
Quasi-independent 1.Not At All Likely 26 53.061225
Quasi-independent
  1. Not too likely
1 2.040816
Quasi-independent
  1. Somewhat likely
13 26.530612
Quasi-independent
  1. Very Likely
9 18.367347

4.6.2. Music as Main Purpose

ggplot(nash_venue_data)+
  geom_bar(aes(purpose), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Main Purpose",
    subtitle = "Q: Is the music program the main purpose why people attend this venue, and not e.g. food, drink, products?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data)+
  geom_bar(aes(purpose), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Main Purpose",
    subtitle = "Q: Is the music program the main purpose why people attend this venue, and not e.g. food, drink, products?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

4.6.3. Interdisciplinarity

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(interdisciplinarity), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Interdisciplinarity - Music Spaces",
    subtitle = "Q: Does the venue offer events for non-music presentations, such visual art, performing art, panel discussions or film screenings?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_interdisciplinarity = mean(interdisciplinarity_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()
## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.
IMV music_space mean_interdisciplinarity n
Indep. Owned and Operated Music Space 1.875000 24
Non-Independent Music Space 2.425000 40
Quasi-independent Music Space 1.857143 49
Indep. Owned and Operated Occasional Music Space 2.076923 14
Non-Independent Occasional Music Space 1.606061 66
Quasi-independent Occasional Music Space 1.169491 60

4.6.4. Community Focus

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(community_focus), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Community Focus - Music Spaces",
    subtitle = "Q: Is the venue likely to be any of the following... a consistent platform for a niche genre, a space for underrepresented communities or music scenes, a neighbourhood community hub, and not e.g. walk in tourists?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(community_focus), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Community Focus - Music Spaces",
    subtitle = "Q: Is the venue likely to be any of the following... a consistent platform for a niche genre, a space for underrepresented communities or music scenes, a neighbourhood community hub, and not e.g. walk in tourists?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

Indie venues ARE more local

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_community_focus = mean(community_focus_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()
## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.
IMV music_space mean_community_focus n
Indep. Owned and Operated Music Space 3.041667 24
Non-Independent Music Space 2.625000 40
Quasi-independent Music Space 2.734694 49
Indep. Owned and Operated Occasional Music Space 2.357143 14
Non-Independent Occasional Music Space 1.590909 66
Quasi-independent Occasional Music Space 1.689655 60
nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  group_by(IMV, community_focus) %>%
  tally() %>%
  mutate(pct = 100*(n/sum(n))) %>%
  kable()
IMV community_focus n pct
Indep. Owned and Operated 1.Not At All Likely 2 8.333333
Indep. Owned and Operated
  1. Not too likely
4 16.666667
Indep. Owned and Operated
  1. Somewhat likely
9 37.500000
Indep. Owned and Operated
  1. Very Likely
9 37.500000
Non-Independent 1.Not At All Likely 6 15.000000
Non-Independent
  1. Not too likely
9 22.500000
Non-Independent
  1. Somewhat likely
19 47.500000
Non-Independent
  1. Very Likely
6 15.000000
Quasi-independent 1.Not At All Likely 9 18.367347
Quasi-independent
  1. Not too likely
6 12.244898
Quasi-independent
  1. Somewhat likely
23 46.938775
Quasi-independent
  1. Very Likely
11 22.448980
nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(likely_community_focus = ifelse(str_detect(community_focus, "Somewhat") |
                                           str_detect(community_focus, "Very"),
                                         "Somewhat or Very Likely Community Focus",
                                         "Not At All or Not too Likely")) %>%
  group_by(IMV, likely_community_focus) %>%
  tally() %>%
  mutate(pct = 100*(n/sum(n))) %>%
  kable()
IMV likely_community_focus n pct
Indep. Owned and Operated Not At All or Not too Likely 6 25.00000
Indep. Owned and Operated Somewhat or Very Likely Community Focus 18 75.00000
Non-Independent Not At All or Not too Likely 15 37.50000
Non-Independent Somewhat or Very Likely Community Focus 25 62.50000
Quasi-independent Not At All or Not too Likely 15 30.61224
Quasi-independent Somewhat or Very Likely Community Focus 34 69.38776

4.6.5. Promoting Events

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(event_promotion), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Promoting Artistic Content - Music Spaces",
    subtitle = "Q: Is the promotion and marketing of this space focused on artistic content (artists, lineups, performances)?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(event_promotion), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Promoting Artistic Content - Music Spaces",
    subtitle = "Q: Is the promotion and marketing of this space focused on artistic content (artists, lineups, performances)?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

ggplot(nash_venue_data)+
  geom_bar(aes(event_promotion), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Promoting Artistic Content",
    subtitle = "Q: Is the promotion and marketing of this space focused on artistic content (artists, lineups, performances)?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_grid(music_space~IMV)+
  plotTheme

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_event_promotion = mean(event_promotion_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()
## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.
IMV music_space mean_event_promotion n
Indep. Owned and Operated Music Space 3.416667 24
Non-Independent Music Space 3.375000 40
Quasi-independent Music Space 3.244898 49
Indep. Owned and Operated Occasional Music Space 2.285714 14
Non-Independent Occasional Music Space 1.738462 66
Quasi-independent Occasional Music Space 1.661017 60

4.7. CFP Comparisons

4.7.1. Venue Count

main_venue_data %>%
  group_by(city) %>%
  tally() %>%
  filter(city != "") %>%
  rbind(., nash_venue_data %>%
          mutate(city = "Nashville") %>%
          group_by(city) %>%
          tally) %>%
  kable() %>%
  kable_styling()
city n
Berlin 496
Montreal 271
New York 495
Stockholm 102
Sydney 241
Tokyo 581
Nashville 253

4.7.2. Venue Density by City and Area

Note - Sydney’s population represents only 2 of the 33 Local Government Areas in the metro region - City of Sydney and Inner West Council.

d1_aggregates %>%
  as.data.frame() %>%
  filter(city != "Sydney") %>%
  group_by(city) %>%
  summarize(total_pop = sum(pop_t2),
            total_venues = sum(venue_count, na.rm = TRUE),
            area_sqkm = sum(area_km2)) %>%
  rbind(.,
        d2_aggregates %>%
  as.data.frame() %>%
  filter(city == "Sydney") %>%
  group_by(city) %>%
  summarize(total_pop = sum(pop_t2),
            total_venues = sum(venue_count, na.rm = TRUE),
            area_sqkm = sum(area_km2))) %>%
  rbind(., d1_aggregates_nash %>%
          st_transform(2274) %>%
          mutate(city = "Nashville") %>%
          mutate(area_sqkm = st_area(.)* 0.0000000929) %>%
          as.data.frame() %>%
          summarize(total_pop = sum(tot_pop20),
                    total_venues = sum(venue_count, na.rm = TRUE),
                    area_sqkm = sum(area_sqkm)) %>%
          mutate(city = "Nashville")) %>%
  mutate(total_venues = ifelse(city == "Nashville", 253, total_venues)) %>%
  mutate(venues_per_10k = total_venues / (total_pop/10000),
         venue_sqkm = total_venues / area_sqkm)
## # A tibble: 7 × 6
##   city      total_pop total_venues area_sqkm venues_per_10k venue_sqkm
##   <chr>         <dbl>        <dbl>     <dbl>          <dbl>      <dbl>
## 1 Berlin      3517424          495     888.           1.41       0.558
## 2 Montreal    2004265          265     617.           1.32       0.430
## 3 New York    8426743          493    1212.           0.585      0.407
## 4 Stockholm    975551           96     215.           0.984      0.447
## 5 東京都      9272740          581     657.           0.627      0.885
## 6 Sydney       394178          240      70.4          6.09       3.41 
## 7 Nashville    690540          253    1360.           3.66       0.186
d1_aggregates %>%
  as.data.frame() %>%
  filter(city != "Sydney" & 
           city != "New York") %>%
  select(city, d1_name, venue_count) %>%
  rbind(.,
        d2_aggregates %>%
  as.data.frame() %>%
  filter(city %in% c("Sydney", "New York")) %>%
  select(city, venue_count, d2_name) %>%
    rename(d1_name = d2_name)) %>%
  rbind(., d1_aggregates_nash %>%
          as.data.frame() %>%
          select(venue_count, d1_name) %>%
          mutate(city = "Nashville")) %>%
  arrange(-venue_count) %>%
  kable() %>%
  kable_styling()
city d1_name venue_count
Berlin Friedrichshain-Kreuzberg 172
東京都 渋谷区 167
Montreal Ville-Marie 122
Berlin Mitte 120
Nashville Downtown 107
東京都 新宿区 87
東京都 港区 79
Montreal Le Plateau-Mont-Royal 78
Sydney Sydney - Haymarket - The Rocks 68
東京都 世田谷区 64
Berlin Neukölln 59
Berlin Pankow 54
New York Midtown-Midtown South 54
東京都 杉並区 46
Nashville East Nashville 39
Nashville Green Hills - Midtown 39
New York West Village 35
Stockholm Södermalm 33
New York North Side-South Side 32
New York Chinatown 31
東京都 豊島区 27
Berlin Tempelhof-Schöneberg 27
New York Hudson Yards-Chelsea-Flat Iron-Union Square 27
Sydney Darlinghurst 27
Stockholm Norrmalm 26
New York Bushwick South 26
Sydney Newtown - Camperdown - Darlington 25
Montreal Le Sud-Ouest 23
Berlin Charlottenburg-Wilmersdorf 21
Stockholm Östermalm 21
New York Clinton 20
Nashville Donelson - Hermitage - Old Hickory 19
Berlin Treptow-Köpenick 18
New York Bushwick North 18
New York East Village 18
Sydney Potts Point - Woolloomooloo 18
東京都 中央区 17
Nashville North Nashville 16
東京都 千代田区 15
Sydney Redfern - Chippendale 15
Sydney Surry Hills 15
New York East Williamsburg 14
東京都 台東区 13
Montreal Rosemont-La Petite-Patrie 13
Stockholm Enskede-Årsta-Vantör 12
New York Park Slope-Gowanus 12
New York SoHo-TriBeCa-Civic Center-Little Italy 12
東京都 中野区 11
New York Greenpoint 11
New York Central Harlem South 10
Sydney Marrickville 10
Nashville South Nashville 10
東京都 目黒区 9
Berlin Lichtenberg 9
Montreal Mercier-Hochelaga-Maisonneuve 9
New York Ridgewood 9
Sydney Paddington - Moore Park 9
東京都 品川区 8
Montreal Villeray-Saint-Michel-Parc-Extension 8
New York Lower East Side 8
Sydney Erskineville - Alexandria 8
Nashville Southeast 8
東京都 文京区 7
東京都 江東区 7
New York Stuyvesant Heights 7
New York Upper East Side-Carnegie Hill 7
Sydney Petersham - Stanmore 7
Sydney Pyrmont - Ultimo 7
東京都 練馬区 6
Berlin Spandau 6
Berlin Marzahn-Hellersdorf 6
Montreal Côte-des-Neiges-Notre-Dame-de-Grâce 6
New York Bedford 6
New York Mott Haven-Port Morris 6
New York Lincoln Square 6
Sydney Glebe - Forest Lodge 6
Sydney Leichhardt - Annandale 6
Sydney Lilyfield - Rozelle 6
東京都 墨田区 5
東京都 大田区 5
New York Sunset Park West 5
New York Crown Heights North 5
New York Turtle Bay-East Midtown 5
New York Gramercy 5
東京都 江戸川区 4
New York Brooklyn Heights-Cobble Hill 4
New York Carroll Gardens-Columbia Street-Red Hook 4
New York Hunts Point 4
New York Schuylerville-Throgs Neck-Edgewater Park 4
New York Marble Hill-Inwood 4
New York Central Harlem North-Polo Grounds 4
New York Upper West Side 4
Sydney Balmain 4
Nashville Antioch - Priest Lake 4
Nashville Madison 4
Nashville West Nashville 4
東京都 北区 3
Berlin Reinickendorf 3
Stockholm Hägersten-Älvsjö 3
Montreal Outremont 3
New York DUMBO-Vinegar Hill-Downtown Brooklyn-Boerum Hill 3
New York Prospect Heights 3
New York Fort Greene 3
New York Clinton Hill 3
New York Erasmus 3
New York Co-op City 3
New York Spuyten Duyvil-Kingsbridge 3
New York Manhattanville 3
New York Morningside Heights 3
Sydney Ashfield 3
Nashville Bellevue 3
New York Seagate-Coney Island 2
New York Prospect Lefferts Gardens-Wingate 2
New York East Flatbush-Farragut 2
New York Parkchester 2
New York Murray Hill-Kips Bay 2
New York Washington Heights North 2
New York Hunters Point-Sunnyside-West Maspeth 2
New York New Springville-Bloomfield-Travis 2
New York West New Brighton-New Brighton-St. George 2
Sydney Sydenham - Tempe - St Peters 2
Sydney Waterloo - Beaconsfield 2
Sydney Dulwich Hill - Lewisham 2
東京都 足立区 1
Stockholm Skärholmen 1
Montreal Lachine 1
Montreal Ahuntsic-Cartierville 1
Montreal Saint-Léonard 1
New York Sheepshead Bay-Gerritsen Beach-Manhattan Beach 1
New York Bensonhurst East 1
New York Flatbush 1
New York Crown Heights South 1
New York Brownsville 1
New York East Concourse-Concourse Village 1
New York North Riverdale-Fieldston-Riverdale 1
New York Highbridge 1
New York Van Cortlandt Village 1
New York Allerton-Pelham Gardens 1
New York Westchester-Unionport 1
New York Woodlawn-Wakefield 1
New York West Concourse 1
New York Crotona Park East 1
New York park-cemetery-etc-Bronx 1
New York Battery Park City-Lower Manhattan 1
New York East Harlem South 1
New York Washington Heights South 1
New York Stuyvesant Town-Cooper Village 1
New York South Jamaica 1
New York College Point 1
New York Maspeth 1
New York Kew Gardens Hills 1
New York Elmhurst-Maspeth 1
New York Richmond Hill 1
New York Jamaica 1
New York Woodside 1
New York Queensbridge-Ravenswood-Long Island City 1
New York Astoria 1
New York Steinway 1
New York New Brighton-Silver Lake 1
Nashville Bordeaux - Whites Creek - Haynes Trinity 1
Nashville Joelton 1
Nashville Parkwood - Union Hill 1
東京都 荒川区 NA
東京都 板橋区 NA
東京都 葛飾区 NA
Berlin Steglitz-Zehlendorf NA
Stockholm Kungsholmen NA
Stockholm Farsta NA
Stockholm Bromma NA
Stockholm Hässelby-Vällingby NA
Stockholm Skarpnäck NA
Stockholm Spånga-Tensta NA
Stockholm Rinkeby-Kista NA
Montreal LaSalle NA
Montreal Mont-Royal NA
Montreal Hampstead NA
Montreal Rivière-des-Prairies-Pointe-aux-Trembles NA
Montreal Dorval NA
Montreal Montréal-Nord NA
Montreal L’Île-Bizard-Sainte-Geneviève NA
Montreal Kirkland NA
Montreal Dollard-des-Ormeaux NA
Montreal Senneville NA
Montreal Côte-Saint-Luc NA
Montreal Montréal-Ouest NA
Montreal Pointe-Claire NA
Montreal L’Île-Dorval NA
Montreal Saint-Laurent NA
Montreal Beaconsfield NA
Montreal Westmount NA
Montreal Montréal-Est NA
Montreal Anjou NA
Montreal Pierrefonds-Roxboro NA
Montreal Sainte-Anne-de-Bellevue NA
Montreal Verdun NA
Montreal Baie-d’Urfé NA
New York Brighton Beach NA
New York West Brighton NA
New York Homecrest NA
New York Gravesend NA
New York Bath Beach NA
New York Bensonhurst West NA
New York Dyker Heights NA
New York Bay Ridge NA
New York Sunset Park East NA
New York Windsor Terrace NA
New York Kensington-Ocean Parkway NA
New York Midwood NA
New York Madison NA
New York Georgetown-Marine Park-Bergen Beach-Mill Basin NA
New York Ocean Parkway South NA
New York Canarsie NA
New York Flatlands NA
New York Williamsburg NA
New York Ocean Hill NA
New York East New York NA
New York Cypress Hills-City Line NA
New York East New York (Pennsylvania Ave) NA
New York Borough Park NA
New York Starrett City NA
New York Rugby-Remsen Village NA
New York park-cemetery-etc-Brooklyn NA
New York Claremont-Bathgate NA
New York Eastchester-Edenwald-Baychester NA
New York Bedford Park-Fordham North NA
New York Belmont NA
New York Bronxdale NA
New York West Farms-Bronx River NA
New York Soundview-Castle Hill-Clason Point-Harding Park NA
New York Pelham Bay-Country Club-City Island NA
New York East Tremont NA
New York Kingsbridge Heights NA
New York Longwood NA
New York Melrose South-Mott Haven North NA
New York Morrisania-Melrose NA
New York University Heights-Morris Heights NA
New York Van Nest-Morris Park-Westchester Square NA
New York Fordham South NA
New York Mount Hope NA
New York Norwood NA
New York Williamsbridge-Olinville NA
New York Pelham Parkway NA
New York Soundview-Bruckner NA
New York Rikers Island NA
New York Hamilton Heights NA
New York Lenox Hill-Roosevelt Island NA
New York Yorkville NA
New York East Harlem North NA
New York park-cemetery-etc-Manhattan NA
New York Springfield Gardens North NA
New York Springfield Gardens South-Brookville NA
New York Rosedale NA
New York Jamaica Estates-Holliswood NA
New York Hollis NA
New York St. Albans NA
New York Breezy Point-Belle Harbor-Rockaway Park-Broad Channel NA
New York Hammels-Arverne-Edgemere NA
New York Far Rockaway-Bayswater NA
New York Forest Hills NA
New York Rego Park NA
New York Glendale NA
New York Middle Village NA
New York Flushing NA
New York Corona NA
New York North Corona NA
New York East Elmhurst NA
New York Jackson Heights NA
New York Elmhurst NA
New York Cambria Heights NA
New York Queens Village NA
New York Briarwood-Jamaica Hills NA
New York Pomonok-Flushing Heights-Hillcrest NA
New York Fresh Meadows-Utopia NA
New York Oakland Gardens NA
New York Bellerose NA
New York Glen Oaks-Floral Park-New Hyde Park NA
New York Douglas Manor-Douglaston-Little Neck NA
New York Bayside-Bayside Hills NA
New York Ft. Totten-Bay Terrace-Clearview NA
New York Auburndale NA
New York Whitestone NA
New York Murray Hill NA
New York East Flushing NA
New York Woodhaven NA
New York South Ozone Park NA
New York Ozone Park NA
New York Lindenwood-Howard Beach NA
New York Kew Gardens NA
New York Queensboro Hill NA
New York Laurelton NA
New York Old Astoria NA
New York Baisley Park NA
New York Airport NA
New York park-cemetery-etc-Queens NA
New York Annadale-Huguenot-Prince’s Bay-Eltingville NA
New York Westerleigh NA
New York Grymes Hill-Clifton-Fox Hills NA
New York Charleston-Richmond Valley-Tottenville NA
New York Mariner’s Harbor-Arlington-Port Ivory-Graniteville NA
New York Grasmere-Arrochar-Ft. Wadsworth NA
New York Todt Hill-Emerson Hill-Heartland Village-Lighthouse Hill NA
New York Oakwood-Oakwood Beach NA
New York Port Richmond NA
New York Rossville-Woodrow NA
New York Old Town-Dongan Hills-South Beach NA
New York Stapleton-Rosebank NA
New York New Dorp-Midland Beach NA
New York Arden Heights NA
New York Great Kills NA
New York park-cemetery-etc-Staten Island NA
Sydney Burwood - Croydon NA
Sydney Croydon Park - Enfield NA
Sydney Haberfield - Summer Hill NA

4.7.3. Programming Comparison

main_venue_data %>%
  select(city, promotion, community_focus, experimentation) %>%
  rbind(., nash_venue_data %>%
          mutate(city = "Nashville") %>%
          rename(promotion = event_promotion) %>%
          select(city, promotion, community_focus, experimentation)) %>%
  gather(-city, value = "value", key = "variable") %>%
  mutate(value = case_when(str_detect(value, "1") == TRUE ~ "1. Not At All Likely",
                           str_detect(value, "2") == TRUE ~ "2. Not Too Likely",
                           str_detect(value, "3") == TRUE ~ "3. Somewhat Likely",
                           str_detect(value, "4") == TRUE ~ "4. Very Likely")) %>%
  filter(is.na(value) == FALSE,
         city != "") %>%
  ggplot()+
  geom_bar(aes(value))+
  facet_grid(city~variable, scales = "free")+
  plotTheme

main_venue_data %>%
  select(city, promotion, community_focus, experimentation) %>%
  rbind(., nash_venue_data %>%
          mutate(city = "Nashville") %>%
          rename(promotion = event_promotion) %>%
          select(city, promotion, community_focus, experimentation)) %>%
  gather(-city, value = "value", key = "variable") %>%
  mutate(value = case_when(str_detect(value, "1") == TRUE ~ 1,
                           str_detect(value, "2") == TRUE ~ 2,
                           str_detect(value, "3") == TRUE ~ 3,
                           str_detect(value, "4") == TRUE ~ 4)) %>%
  filter(is.na(value) == FALSE,
         city != "") %>%
  group_by(city, variable) %>%
  summarize(mean_score = mean(value)) %>%
  ggplot()+
  geom_bar(aes(y = mean_score, x = variable, fill = city), stat = "identity", position = "dodge")+
  plotTheme
## `summarise()` has grouped output by 'city'. You can override using the
## `.groups` argument.

5. Venues and The City

  • Venue zoning districts (bar plot)

  • Median sqft cost by neighborhood

  • IMVs with the highest sq ft cost

5.1. Venues and real estate costs

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  filter(value_sqft < 1000) %>%
  ggplot()+
  geom_histogram(aes(value_sqft), binwidth = 50) +
  facet_wrap(~IMV)+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(IMV) %>%
  summarize(median_sqft = median(value_sqft))
## # A tibble: 3 × 2
##   IMV                       median_sqft
##   <chr>                           <dbl>
## 1 Indep. Owned and Operated        119.
## 2 Non-Independent                  350.
## 3 Quasi-independent                178.
nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(experimentation) %>%
  summarize(median_value_sqft = median(value_sqft, na.rm = TRUE)) %>%
  ggplot()+
  geom_bar(aes(x = experimentation, y = median_value_sqft), stat = "identity")+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(community_focus) %>%
  summarize(median_value_sqft = median(value_sqft, na.rm = TRUE)) %>%
  ggplot()+
  geom_bar(aes(x = community_focus, y = median_value_sqft), stat = "identity")+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(interdisciplinarity) %>%
  summarize(median_value_sqft = median(value_sqft, na.rm = TRUE)) %>%
  ggplot()+
  geom_bar(aes(x = interdisciplinarity, y = median_value_sqft), stat = "identity")+
  plotTheme

Seems like IMVs and non-IMVs program similarly in practice vis-a-vis these measures (excluding interdisciplinarity)… ON AVERAGE

What about the exceptional examples??

No - it’s basically the same!

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  ggplot()+
  geom_histogram(aes(programming_sum), binwidth = 2)+
  facet_wrap(~IMV)+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  group_by(IMV) %>%
  summarize(mean_programming_sum = mean(programming_sum, na.rm = TRUE),
            median_programming_sum = median(programming_sum, na.rm = TRUE))
## # A tibble: 3 × 3
##   IMV                       mean_programming_sum median_programming_sum
##   <chr>                                    <dbl>                  <dbl>
## 1 Indep. Owned and Operated                 8.88                      9
## 2 Non-Independent                           8.1                       8
## 3 Quasi-independent                         8.08                      8

MF - what are these indies with the super high sq footage values? These are in big mixed use buildings I believe.

Hard to put much into this negative relationship with the outliers.

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  filter(value_sqft < 750) %>%
  ggplot()+
  geom_point(aes(y = programming_sum, x = value_sqft, color = IMV))+
  geom_smooth(aes(y = programming_sum, x = value_sqft), method = "lm", se = FALSE)+
  plotTheme
## `geom_smooth()` using formula 'y ~ x'

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = interdisciplinarity_ord + experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  filter(value_sqft < 750) %>%
  ggplot()+
  geom_point(aes(y = programming_sum, x = value_sqft))+
  geom_smooth(aes(y = programming_sum, x = value_sqft), method = "lm", se = FALSE)+
  facet_wrap(~IMV)+
  plotTheme
## `geom_smooth()` using formula 'y ~ x'

5.2. Building Age

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  ggplot()+
  geom_histogram(aes(YearBuilt), binwidth = 10)+
  facet_wrap(~IMV)+
  plotTheme
## Warning: Removed 14 rows containing non-finite values (stat_bin).

5.3. Building Condition

5.4. Venues by planning area / neighborhood

All music spaces

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(num_music_smaces) == FALSE),
          aes(fill = num_music_smaces),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Music Spaces', direction = -1, alpha = 0.8)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(IMV_n) == FALSE),
          aes(fill = IMV_n),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('IMVs', direction = -1, alpha = 0.8)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(Quasi_IMV_n) == FALSE),
          aes(fill = Quasi_IMV_n),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Quasi IMVs', direction = -1, alpha = 0.8)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(experimentation) == FALSE),
          aes(fill = experimentation),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Mean Experimental\nContent Score', direction = -1)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(community_focus) == FALSE),
          aes(fill = community_focus),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Mean Community\nFocus Score', direction = -1)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot(data = d1_aggregates_nash %>%
         filter(is.na(experimentation) == FALSE) %>%
         as.data.frame() %>%
         mutate(venue_text = str_c(as.character(venue_count), " venues")) %>%
         select(venue_text, venue_count, experimentation, d1_name) %>%
         arrange(-experimentation) %>%
         top_n(10))+
  geom_bar(aes(x = reorder(toupper(d1_name), experimentation), 
               y= experimentation),
           stat = "identity", fill = CityPalette[6], width = 0.3,
           alpha = 0.8)+
  geom_text(aes(label = toupper(venue_text), x = toupper(d1_name), 
                y= experimentation / 2), alpha = 0.6, size = 4 )+
  labs(
    title = "DISTRICTS WITH HIGHEST EXPERIMENTAL CONTENT SCORES",
    #subtitle = "Labels indicate total number of districts in that ward",
    caption = "Data: PennPraxis")+
  ylab("MEAN EXPERIMENTAL CONTENT SCORE (SCALE OF 1-4)")+
  xlab("")+
  coord_flip()+
  plotTheme
## Selecting by d1_name

ggplot(data = d1_aggregates_nash %>%
         filter(is.na(community_focus) == FALSE) %>%
         as.data.frame() %>%
         mutate(venue_text = str_c(as.character(venue_count), " venues")) %>%
         select(venue_text, venue_count, community_focus, d1_name) %>%
         arrange(-community_focus) %>%
         top_n(10))+
  geom_bar(aes(x = reorder(toupper(d1_name), community_focus), 
               y= community_focus),
           stat = "identity", fill = CityPalette[6], width = 0.3,
           alpha = 0.8)+
  geom_text(aes(label = toupper(venue_text), x = toupper(d1_name), 
                y= community_focus / 2), alpha = 0.6, size = 4 )+
  labs(
    title = "DISTRICTS WITH HIGHEST COMMUNITY SCORES",
    #subtitle = "Labels indicate total number of districts in that ward",
    caption = "Data: PennPraxis")+
  ylab("MEAN COMMUNITY PROGRAM SCORE (SCALE OF 1-4)")+
  xlab("")+
  coord_flip()+
  plotTheme
## Selecting by d1_name

Venues and Urban Variables by District -

This is not particularly useful compared to the point pattern analysis.

d1_aggregates_nash %>%
  as.data.frame() %>%
  select(d1_name, density_venues, IMV_n, avg_med_rent20, avg_dens20, perc_chg_dens, perc_chg_med_rent) %>%
  gather(-d1_name, -density_venues, key = "variable", value = "value") %>%
  ggplot()+
  geom_point(aes(x = value, y = density_venues)) +
  facet_wrap(~variable, scales = "free")+
  plotTheme

d1_aggregates_nash %>%
  as.data.frame() %>%
  select(d1_name, interdisciplinarity, event_promotion, community_focus, experimentation, avg_med_rent20, avg_dens20, perc_chg_dens, perc_chg_med_rent) %>%
  gather(-d1_name, -interdisciplinarity, -event_promotion, -community_focus, -experimentation, key = "variable", value = "value") %>%
  ggplot()+
  geom_point(aes(x = value, y = experimentation)) +
  geom_line(stat = "smooth", method='lm', 
            aes(y = experimentation, x = value), 
            se = FALSE, 
            linetype = "dashed", alpha = 0.5)+
  facet_wrap(~variable, scales = "free")+
  plotTheme
## `geom_smooth()` using formula 'y ~ x'
## Warning: Removed 12 rows containing non-finite values (stat_smooth).
## Warning: Removed 12 rows containing missing values (geom_point).

5.5. Venues, Programming and Centrality

What is the geometric center of venue activity in Nashville?

nash_venue_data %>%
  summarize(centroid_x = mean(x),
            centroid_y = mean(y)) %>%
  ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = "transparent") +
  geom_point(aes(x = centroid_x, y = centroid_y))+
  mapTheme

IMVs are located, on average, 2.6 miles from the geographic center of the Nashville venue cluster, while non-IMVs are located, on average, 1.8 miles.

centroid_point <- nash_venue_data %>%
  summarize(centroid_x = mean(x),
            centroid_y = mean(y)) %>%
  st_as_sf(coords = c("centroid_x", "centroid_y"), crs = 4326) %>%
  st_transform(2274)

Distance summary statistics of venue types from center of cluster (Music Spaces only)

nash_venue_data %>%
  st_as_sf(crs = 4326) %>%
  st_transform(2274) %>%
  mutate(centroid_dist = st_distance(., centroid_point)) %>%
  filter(music_space == "Music Space") %>%
  as.data.frame() %>%
  group_by(IMV) %>%
  summarize(mean_dist = mean(centroid_dist) / 5280,
            median = median(centroid_dist) / 5280)
## # A tibble: 3 × 3
##   IMV                              mean_dist           median
##   <chr>                     [US_survey_foot] [US_survey_foot]
## 1 Indep. Owned and Operated             2.51            1.71 
## 2 Non-Independent                       1.83            0.805
## 3 Quasi-independent                     2.18            1.35
nash_venue_data %>%
  st_as_sf(crs = 4326) %>%
  st_transform(2274) %>%
  mutate(centroid_dist = as.numeric(st_distance(., centroid_point))/5280) %>%
  filter(music_space == "Music Space") %>%
  as.data.frame() %>%
  ggplot()+
  geom_density(aes(centroid_dist, color = IMV))+
  plotTheme

## 5.6. Venues and Geographic Clustering

k-means clustering analysis

This first test is a “k-means” cluster analysis that is strictly looking for geographic clusters - this analysis functions by partitioning a cloud of points in multi-dimensional data to find cluster centroids, and assign each point to a cluster by minimizing within cluster variance.

This is ONLY for music spaces.

This doesn’t really produce anything that’s much different than the planning areas.

set.seed(123)

library(cluster)
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
# function to compute total within-cluster sum of square 
wss <- function(k) {
  kmeans(nash_venue_data %>% 
           filter(music_space == "Music Space", 
                  is.na(y) == FALSE) %>% 
           select(x, y), k, nstart = 10 )$tot.withinss
}

# Compute and plot wss for k = 1 to k = 15
k.values <- 1:15

# extract wss for 2-15 clusters
wss_values <- map_dbl(k.values, wss)

# Run "elbow plot" to determine optimal cluster number.
plot(k.values, wss_values,
       type="b", pch = 19, frame = FALSE, 
       xlab="Number of clusters K",
       ylab="Total within-clusters sum of squares")

# Create a data object with cluster numbers
test <- kmeans(nash_venue_data %>% 
           filter(music_space == "Music Space", 
                  is.na(y) == FALSE) %>% 
            select(x, y), centers = 8, nstart = 25)

This interactive map shows the location of these clusters:

cluster_data1 <-nash_venue_data %>% 
           filter(music_space == "Music Space", 
                  is.na(y) == FALSE)  %>% 
  cbind(test$cluster) %>% 
  rename(cluster = 'test$cluster')

pal <- colorNumeric(c("red", "blue", "green", "orange", "black", "purple",
                     "yellow", "pink"), 1:8)

l2 <- leaflet() %>% 
  addProviderTiles(providers$Esri.WorldTopoMap) %>%
  setView(lng = mean(cluster_data1$x, na.rm = TRUE),
          lat = mean(cluster_data1$y, na.rm = TRUE),
          zoom = 11) %>%
  addScaleBar(position = "topleft") %>%
  addCircleMarkers(data= cluster_data1,
                   lng=~x, 
                   lat=~y,
                   radius =~ 1, 
                   fillOpacity =~ 1,
                   color = ~pal(cluster),
                   label=~paste(name, address_admin, " | Cluster: ", cluster))

l2

6. Venues and Regulation

6.1. Business Licenses

nash_venue_data %>%
  group_by(BUSTYPE) %>%
  tally() %>%
  arrange(-n) %>%
  kable() %>%
  kable_styling()
BUSTYPE n
Drinking Places (Alcoholic Bev 74
NA 49
Full Service Resturants 33
Small Resturants-Independents 25
Full Service Hotel 13
General Retail 8
Limited Service-Fast Food 7
Musical Groups + Artists 6
Office Administrative Services 6
Microbrewery 4
Book Stores + News Dealers 3
Music/Performance Venue 3
Apts WO/Clubhouse 2
Economy Hotel 2
Fitness + Recreational Sports 2
Hair, Nail + Skin Care Service 2
Apts W/Clubhouse 1
Automotive Body & Paint 1
Automotive Parts, Accessories 1
Caterers, Food Wagon, Mobile 1
Engineering Services 1
Equipment Only 1
Event Venue 1
Extended Stay Hotel 1
Food Mfg 1
Gift, Novelty, Souvenir Store 1
Misc Small Mfg 1
Motion Picture + Video Product 1
Offices of Lawyers 1
Sound Recording Studios 1
nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  ggplot()+
  geom_bar(aes(BUSTYPE, fill = IMV), position = "dodge")+
  coord_flip()+
  plotTheme

6.2. Zoning

These are the most coming zoning designations

SOPHIA - can you look up the top 10 of these and see what they actually mean in the code?

nash_venue_data %>%
  group_by(ZONE_DESC) %>%
  tally() %>%
  arrange(-n) %>%
  kable() %>%
  kable_styling()
ZONE_DESC n
DTC 107
CS 22
MUL-A 21
CL 15
MUI-A 11
CA 10
MUG-A 10
SP 8
IR 6
SCR 6
RM20 4
CF 3
IWD 3
MUL 3
AR2A 2
CN 2
MUN-A 2
OR20 2
ORI 2
R10 2
RM20-A-NS 2
RS5 2
Satellite City 2
MUG 1
MUI 1
R20 1
R6 1
R6-A 1
R8 1

6.3. Land Use

nash_venue_data %>%
  group_by(LUDesc) %>%
  tally() %>%
  arrange(-n) %>%
  kable() %>%
  kable_styling()
LUDesc n
RESTURANT/CAFETERIA 55
NIGHTCLUB/LOUNGE 35
STRIP SHOPPING CENTER 29
HOTEL/MOTEL 26
ONE STORY GENERAL RETAIL STORE 12
OFFICE BLDG (ONE OR TWO STORIES) 11
OFFICE BLDG (3 OR MORE STORIES) 8
METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK 6
CONDOMINIUM OFC OR OTHER COM CONDO 5
MUSEUM OR OTHER CULTURAL ORG. 5
VACANT COMMERCIAL LAND 5
APARTMENT: HIGH RISE (3 STORIES OR GREATER) 4
FAST FOOD 4
SMALL WAREHOUSE 4
VACANT RESIDENTIAL LAND 4
CLUB/UNION HALL/LODGE 3
LIGHT MANUFACTURING 3
PARK OR RECREATION 3
SCHOOL OR COLLEGE 3
SHOPPING CENTER 3
THEATER/AUDITORIUM 3
PARKING LOT 2
TERMINAL/DISTRIBUTION WARHOUSE 2
AUTO REPAIR/BODY SHOP 1
BRANCH FINANCIAL INSTITUTION 1
BUSINESS CENTER 1
CONVENIENCE MARKET WITH GAS 1
CONVENIENCE MARKET WITHOUT GAS 1
DOCK/MARINA 1
ENCLOSED MALL 1
FEDERAL OTHER THAN OFC, SCHOOL, HOSP, PARK 1
GOLF COURSE/DRIVING RANGE 1
HEAVY MANUFACTURING 1
PACKING PLANT/FOOD PROCESSING 1
PARKING GARAGE 1
RECORDING STUDIO 1
RECREATIONAL 1
RESIDENTIAL CONDO 1
SINGLE FAMILY 1
SMALL SERVICE SHOP 1
NA 1
ggplot(nash_venue_data)+
  geom_bar(aes(LUDesc))+
  facet_wrap(~music_space)+
  coord_flip()+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(LUDesc, fill = IMV), position = "dodge")+
  coord_flip()+
  plotTheme

What on earth is going on here? These are businesses along with their IMV designations, LU, Business License type

nash_venue_data %>% 
  select(BUSTYPE, LUDesc, name, address_admin, IMV, music_space) %>% 
  kable() %>%
  kable_styling()
BUSTYPE LUDesc name address_admin IMV music_space
Small Resturants-Independents BUSINESS CENTER 3rd & Lindsley 805 PRESIDENT RONALD REAGAN WAY Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE 404 Bar & Grill 404 ELYSIAN FIELDS RD Indep. Owned and Operated Music Space
Microbrewery RESTURANT/CAFETERIA 6th and Peabody 423 6TH AVE S Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Acme Feed & Seed 101 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE AJ’s Good Time Bar 421 BROADWAY Quasi-independent Music Space
NA RESIDENTIAL CONDO Alley Taps 162 4TH AVE N 205 Quasi-independent Music Space
Full Service Hotel HOTEL/MOTEL Aloft Nashville West End 1719 WEST END AVE Non-Independent Occasional Music Space
Office Administrative Services CLUB/UNION HALL/LODGE American Legion Post 82 3204 GALLATIN PIKE Quasi-independent Music Space
Full Service Hotel HOTEL/MOTEL Analog at Hutton Hotel 1808 WEST END AVE Non-Independent Music Space
General Retail OFFICE BLDG (3 OR MORE STORIES) Andrew Jackson Hall-TPAC 301 REP JOHN LEWIS WAY N Non-Independent Music Space
Small Resturants-Independents STRIP SHOPPING CENTER Anzie Blue 1803 21ST AVE S Quasi-independent Music Space
Music/Performance Venue VACANT COMMERCIAL LAND Ascend Amphitheater 310 1ST AVE S Non-Independent Music Space
Limited Service-Fast Food STRIP SHOPPING CENTER Assembly Food Hall 500 BROADWAY Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev SMALL WAREHOUSE Bar Sovereign 514 REP JOHN LEWIS WAY S Quasi-independent Occasional Music Space
Hair, Nail + Skin Care Service OFFICE BLDG (ONE OR TWO STORIES) Barbershop Theater 4003 INDIANA AVE Non-Independent Occasional Music Space
Full Service Hotel HOTEL/MOTEL Barlines (Omni Nashville Hotel) 250 REP JOHN LEWIS WAY S Non-Independent Occasional Music Space
Full Service Resturants ENCLOSED MALL Bavarian Bierhaus 433 OPRY MILLS DR Non-Independent Music Space
NA MUSEUM OR OTHER CULTURAL ORG. Belcourt Theatre 2100 BELCOURT AVE Non-Independent Music Space
Limited Service-Fast Food ONE STORY GENERAL RETAIL STORE Betty’s Grill 4900 CHARLOTTE AVE Quasi-independent Occasional Music Space
Apts WO/Clubhouse OFFICE BLDG (ONE OR TWO STORIES) Big Jimmy’s 109 2ND AVE N Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Big Machine Brewery 120 3RD AVE S Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Big Shotz 115 2ND AVE N Quasi-independent Occasional Music Space
Small Resturants-Independents CONDOMINIUM OFC OR OTHER COM CONDO Black Rabbit 218 3RD AVE N #100 Non-Independent Music Space
Drinking Places (Alcoholic Bev BRANCH FINANCIAL INSTITUTION Bobby’s Idle Hour Tavern 9 MUSIC SQ S Quasi-independent Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Bongo Java After Hours Theatre 2007 BELMONT BLVD Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Bootleggers Inn 207 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev FAST FOOD Bourbon Street Blues and Boogie Bar 218 4TH AVE N Quasi-independent Music Space
NA RESTURANT/CAFETERIA Bowie’s 174 3RD AVE N Quasi-independent Music Space
Musical Groups + Artists METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Bridgestone Arena 501 BROADWAY Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Brooklyn Bowl Nashville 915 3RD AVE N Non-Independent Music Space
Small Resturants-Independents STRIP SHOPPING CENTER Bucanas 2009 3802 NOLENSVILLE PIKE Quasi-independent Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Cafe Coco 210 LOUISE AVE Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Caney Fork River Valley Grille 2400 MUSIC VALLEY DR Quasi-independent Occasional Music Space
Small Resturants-Independents STRIP SHOPPING CENTER Carl’s Corner Pub & Bar 3755 NOLENSVILLE PIKE Quasi-independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Casa Rosa Miranda Lamberts 308 BROADWAY Non-Independent Occasional Music Space
NA HOTEL/MOTEL CE gallery (WEHO and/or Madison location) 425 CHESTNUT ST Quasi-independent Music Space
Gift, Novelty, Souvenir Store MUSEUM OR OTHER CULTURAL ORG. Cheekwood Botanical Garden and Museum of Art 111 CHEEK RD Quasi-independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA City Winery Nashville 600 MIDDLETON ST Quasi-independent Music Space
NA MUSEUM OR OTHER CULTURAL ORG. CMA Theater 224 REP JOHN LEWIS WAY S Non-Independent Occasional Music Space
Full Service Hotel HOTEL/MOTEL Commodore Grille (Holiday Inn Vanderbilt) 2613 WEST END AVE Non-Independent Music Space
NA OFFICE BLDG (ONE OR TWO STORIES) Corner Bar at Elliston Place 2200 ELLISTON PL Quasi-independent Occasional Music Space
Musical Groups + Artists MUSEUM OR OTHER CULTURAL ORG. Country Music Hall of Fame and Museum 222 REP JOHN LEWIS WAY S Non-Independent Music Space
Drinking Places (Alcoholic Bev HOTEL/MOTEL Cross-Eyed Critters Watering Hole 101 20TH AVE N Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Crow’s Nest 2221 BANDYWOOD DR Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Dawg House Saloon 1522 DEMONBREUN ST Indep. Owned and Operated Occasional Music Space
Equipment Only HOTEL/MOTEL Decker & Dyer 807 CLARK PL Indep. Owned and Operated Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Dee’s Country Cocktail Lounge 102 E PALESTINE AVE Quasi-independent Music Space
NA METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Deep Tropics (Music Festival) 900 ROSA L PARKS BLVD Indep. Owned and Operated Occasional Music Space
NA SMALL WAREHOUSE Delgado Guitars 919 C GALLATIN AVE Quasi-independent Music Space
Full Service Resturants RESTURANT/CAFETERIA Dierks Bentley’s Whiskey Row Nashville 400 BROADWAY Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev OFFICE BLDG (3 OR MORE STORIES) Doc Holidays 112 2ND AVE N Quasi-independent Occasional Music Space
Full Service Hotel HOTEL/MOTEL Dream Nightclub 210 4TH AVE N Non-Independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Drifters BBQ 1008 WOODLAND ST Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Drkmttr Collective 1111 DICKERSON PIKE Indep. Owned and Operated Music Space
Full Service Hotel HOTEL/MOTEL Drury Plaza Hotel Nashville Downtown-Bar 300 KOREAN VETERANS BLVD Non-Independent Occasional Music Space
Automotive Parts, Accessories STRIP SHOPPING CENTER Eastside Bowl 1508 GALLATIN PIKE Quasi-independent Music Space
Full Service Hotel HOTEL/MOTEL Ellingston’s 241 4TH AVE N Quasi-independent Occasional Music Space
Engineering Services HOTEL/MOTEL ERGO 1001 BROADWAY Non-Independent Occasional Music Space
Office Administrative Services RESTURANT/CAFETERIA EXIT/IN 2208 ELLISTON PL Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Famous Nashville 110 2ND AVE N Quasi-independent Music Space
General Retail ONE STORY GENERAL RETAIL STORE Fanny’s House of Music 1101 HOLLY ST Quasi-independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Flamingo Cocktail Club 509 HOUSTON ST Quasi-independent Music Space
NA RESTURANT/CAFETERIA Florida Georgia Line House 120 3RD AVE S Non-Independent Occasional Music Space
Motion Picture + Video Product FEDERAL OTHER THAN OFC, SCHOOL, HOSP, PARK Frist Center for the Visual Arts 919 BROADWAY Non-Independent Occasional Music Space
Full Service Resturants DOCK/MARINA General Jackson Showboat 577 OPRY MILLS DR Non-Independent Music Space
NA VACANT RESIDENTIAL LAND GEODIS Park 0 RAINS AVE Non-Independent Occasional Music Space
Music/Performance Venue THEATER/AUDITORIUM Grand Ole Opry 2804 OPRYLAND DR Non-Independent Music Space
General Retail STRIP SHOPPING CENTER Grimey’s New & Preloved Music 1060 E TRINITY LN Quasi-independent Music Space
Full Service Resturants RESTURANT/CAFETERIA Hard Rock Cafe 108 2ND AVE N Non-Independent Music Space
Small Resturants-Independents STRIP SHOPPING CENTER Helen’s Hot Chicken 1801 JEFFERSON ST Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev OFFICE BLDG (ONE OR TWO STORIES) Hifi Clyde’s Nashville 1700 CHURCH ST Non-Independent Occasional Music Space
Book Stores + News Dealers OFFICE BLDG (ONE OR TWO STORIES) HOME (Helping Our Music Evolve) 615 MAIN ST Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Honky Tonk Central 329 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Hopsmith Tavern 1903 DIVISION ST Non-Independent Occasional Music Space
NA STRIP SHOPPING CENTER Hubba Hubba Tiki Tonk 922 MAIN ST Quasi-independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Inglewood Lounge 3914 GALLATIN PIKE Quasi-independent Occasional Music Space
Small Resturants-Independents NIGHTCLUB/LOUNGE Island Vibes 1316 ANTIOCH PIKE Quasi-independent Occasional Music Space
General Retail OFFICE BLDG (3 OR MORE STORIES) James K Polk Theater-TPAC 301 REP JOHN LEWIS WAY N Non-Independent Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Jane’s Hideaway 403 GALLATIN AVE Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Jason Aldean’s Kitchen + Rooftop Bar 309 BROADWAY Non-Independent Music Space
NA VACANT COMMERCIAL LAND Jefferson Street Jazz Street Festival 1215 9TH AVE N Indep. Owned and Operated Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Jimmy Buffett’s Margaritaville 322 BROADWAY Non-Independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Joe’s Place 2227 BANDYWOOD DR Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev CONVENIENCE MARKET WITH GAS John A’s Restaurant 2425 MUSIC VALLEY DR Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Johnny Cash’s Kitchen & Saloon 121 3RD AVE S Non-Independent Music Space
Full Service Resturants RESTURANT/CAFETERIA Kid Rock’s Big Honky Tonk Rock N’ Roll Steakhouse 221 BROADWAY Quasi-independent Occasional Music Space
Full Service Resturants HOTEL/MOTEL L27 Rooftop Lounge 807 CLARK PL Non-Independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA La Costa Mexican Seafood 5332 CANE RIDGE RD Quasi-independent Occasional Music Space
NA SINGLE FAMILY Larry’s Grand Ole Garage 549 E MAPLE ST Indep. Owned and Operated Occasional Music Space
Full Service Resturants SHOPPING CENTER Las Cazuelas 4112 NOLENSVILLE PIKE Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev SHOPPING CENTER Las Fogatas 5560 NOLENSVILLE PIKE Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Layla’s Honky Tonk 418 BROADWAY Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Legends Corner 424 BROADWAY Quasi-independent Music Space
Book Stores + News Dealers SCHOOL OR COLLEGE Lipscomb University Department of Theatre 1 UNIVERSITY PARK DR Non-Independent Occasional Music Space
Small Resturants-Independents METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Little Harpeth Brewing 1 TERMINAL DR Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev ONE STORY GENERAL RETAIL STORE Live Oak 1530 DEMONBREUN ST Quasi-independent Music Space
Food Mfg PARKING GARAGE Lonnie’s western Room 300 CHURCH ST Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Los Arcos 3798 NOLENSVILLE PIKE Quasi-independent Occasional Music Space
NA NIGHTCLUB/LOUNGE Loser Most Wanted Bar & Grill (Midtown) 111 4TH AVE S Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev HOTEL/MOTEL Lou|Na 1000 BROADWAY Non-Independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Loveless Cafe 8400 HIGHWAY 100 Quasi-independent Occasional Music Space
Full Service Resturants NIGHTCLUB/LOUNGE Lucky Bastard Saloon 408 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev ONE STORY GENERAL RETAIL STORE Luke’s 32 Bridge Food & Drink 301 BROADWAY Quasi-independent Music Space
Office Administrative Services HEAVY MANUFACTURING Marathon Music Works 1404 CLINTON ST Non-Independent Music Space
Small Resturants-Independents CONDOMINIUM OFC OR OTHER COM CONDO Marisqueria 7 Mares 931 RICHARDS RD Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Martin’s BBQ Joint - SOBRO 410 4TH AVE S Non-Independent Occasional Music Space
Full Service Hotel HOTEL/MOTEL Maxwell Lounge at Millenium Maxwell House Nashville 2025 ROSA L PARKS BLVD Non-Independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA McNamara’s Irish Pub 2740 OLD LEBANON PIKE Indep. Owned and Operated Music Space
Full Service Resturants RESTURANT/CAFETERIA Mellow Mushroom (Broadway) 423 BROADWAY Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Mickeys Tavern 2907 GALLATIN PIKE Non-Independent Occasional Music Space
NA VACANT COMMERCIAL LAND Minerva Avenue 1002 BUCHANAN ST Indep. Owned and Operated Occasional Music Space
Hair, Nail + Skin Care Service ONE STORY GENERAL RETAIL STORE Mirror Mirror 2623 LEBANON PIKE Indep. Owned and Operated Occasional Music Space
Drinking Places (Alcoholic Bev CONDOMINIUM OFC OR OTHER COM CONDO Miss Kelli’s Karaoke Bar 207 3RD AVE N 101 Quasi-independent Occasional Music Space
NA NA Moonlite Drive-in 941 B MAIN ST Non-Independent Occasional Music Space
Economy Hotel HOTEL/MOTEL Moxy Nashville 110 3RD AVE S Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Music City Bar & Grill 2416 MUSIC VALLEY DR Quasi-independent Occasional Music Space
Limited Service-Fast Food METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Music City Center 201 REP JOHN LEWIS WAY S Non-Independent Music Space
NA HOTEL/MOTEL Music City Walk of Fame Park 121 4TH AVE S Non-Independent Occasional Music Space
Misc Small Mfg SMALL WAREHOUSE Music Makers Stages at Delgado Guitars 919 A GALLATIN AVE Quasi-independent Occasional Music Space
NA PARK OR RECREATION Musicians Corner 2500 WEST END AVE Non-Independent Music Space
Office Administrative Services THEATER/AUDITORIUM Musicians Hall of Fame and Museum 417 4TH AVE N Non-Independent Occasional Music Space
NA OFFICE BLDG (3 OR MORE STORIES) NashHouse Southern Spoon and Saloon 1222 DEMONBREUN ST Non-Independent Occasional Music Space
NA OFFICE BLDG (ONE OR TWO STORIES) Nashville’s War Memorial Auditorium 301 6TH AVE N Non-Independent Music Space
Musical Groups + Artists OFFICE BLDG (3 OR MORE STORIES) Nashville Children’s Theatre 700 PRESIDENT RONALD REAGAN WAY Non-Independent Occasional Music Space
NA METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Nashville Farmers’ Market 900 ROSA L PARKS BLVD Non-Independent Occasional Music Space
NA OFFICE BLDG (ONE OR TWO STORIES) Nashville Jazz Workshop 1012 BUCHANAN ST Indep. Owned and Operated Music Space
Office Administrative Services THEATER/AUDITORIUM Nashville Municipal Auditorium 417 4TH AVE N Non-Independent Music Space
Musical Groups + Artists STRIP SHOPPING CENTER Nashville Nightlife Theater 2416 MUSIC VALLEY DR Non-Independent Music Space
Full Service Resturants RESTURANT/CAFETERIA Nashville Underground 105 BROADWAY Quasi-independent Music Space
General Retail STRIP SHOPPING CENTER Natl Museum of African American Music 500 BROADWAY Non-Independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Nectar Urban Cantina 206 MCGAVOCK PIKE Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Neighbors of Sylvan Park 4425 MURPHY RD Non-Independent Occasional Music Space
Fitness + Recreational Sports PARK OR RECREATION Nissan Stadium 1 TITANS WAY Non-Independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Noble’s East Nashville 974 MAIN ST Quasi-independent Occasional Music Space
Full Service Resturants NIGHTCLUB/LOUNGE Nudie’s Honky Tonk 409 BROADWAY Non-Independent Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Old Glory 1200 VILLA PL Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Ole Red 300 BROADWAY Quasi-independent Music Space
Economy Hotel HOTEL/MOTEL Opry Backstage Grill 2401 MUSIC VALLEY DR Non-Independent Occasional Music Space
NA PARKING LOT Out Loud Music Festival 14 JAMES ROBERTSON PKWY Indep. Owned and Operated Occasional Music Space
Event Venue TERMINAL/DISTRIBUTION WARHOUSE Oz Arts Nashville 6172 COCKRILL BEND CIR Non-Independent Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Patron Event Center 709 RIVERGATE PKWY Non-Independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Pearl Diver 1010 GALLATIN AVE Non-Independent Occasional Music Space
Small Resturants-Independents ONE STORY GENERAL RETAIL STORE Phat Bites Deli & Bar 2730 LEBANON PIKE Indep. Owned and Operated Occasional Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Play Dance Bar 1517 CHURCH ST Indep. Owned and Operated Music Space
Office Administrative Services SHOPPING CENTER Plaza Mariachi 3955 NOLENSVILLE PIKE Non-Independent Music Space
General Retail STRIP SHOPPING CENTER Primm’s Appetit 2830 GALLATIN PIKE Quasi-independent Occasional Music Space
Full Service Resturants OFFICE BLDG (3 OR MORE STORIES) Puckett’s Grocery & Restaurant Downtown 201 REP JOHN LEWIS WAY N Non-Independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Ray Stevens CabaRay 5724 RIVER RD Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Rebar at the Dam 3248 BLACKWOOD DR Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Red Door Saloon 1816 DIVISION ST Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Red Door Saloon East 1010 FORREST AVE Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev OFFICE BLDG (ONE OR TWO STORIES) Redneck Riviera 208 BROADWAY Quasi-independent Occasional Music Space
NA HOTEL/MOTEL Renaissance Nashville Hotel-Bridge Bar 611 COMMERCE ST Non-Independent Occasional Music Space
Limited Service-Fast Food RESTURANT/CAFETERIA Rippy’s Smokin’ Bar & Grill 429 BROADWAY Quasi-independent Occasional Music Space
NA OFFICE BLDG (ONE OR TWO STORIES) Riverside Revival Nashville 1600 RIVERSIDE DR Non-Independent Music Space
Drinking Places (Alcoholic Bev ONE STORY GENERAL RETAIL STORE Robert’s Western World 416 B BROADWAY Quasi-independent Music Space
Music/Performance Venue CLUB/UNION HALL/LODGE Rocketown (Main Building) 601 4TH AVE S Non-Independent Music Space
Full Service Resturants RESTURANT/CAFETERIA Rosemary and Beauty Queen (bar); Pink Spiders (band) 1102 FORREST AVE Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Rosie’s Twin Kegs 413 THOMPSON LN Indep. Owned and Operated Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Rudy’s Jazz Room 600 9TH AVE S Indep. Owned and Operated Music Space
Musical Groups + Artists RECREATIONAL Ryman Auditorium 116 REP JOHN LEWIS WAY N Non-Independent Music Space
Apts WO/Clubhouse APARTMENT: HIGH RISE (3 STORIES OR GREATER) Sambuca (Restaurant) 1209 PINE ST Non-Independent Music Space
Drinking Places (Alcoholic Bev FAST FOOD Santa’s Pub 2225 BRANSFORD AVE Indep. Owned and Operated Occasional Music Space
NA MUSEUM OR OTHER CULTURAL ORG. Schermerhorn Symphony Center 1 SYMPHONY PL Non-Independent Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Scoreboard Restaurant & Sports Bar 2416 MUSIC VALLEY DR Non-Independent Occasional Music Space
Book Stores + News Dealers SCHOOL OR COLLEGE Shamblin Theater 1 UNIVERSITY PARK DR Non-Independent Occasional Music Space
Full Service Hotel HOTEL/MOTEL Sheraton Downtown Nashville 623 UNION ST Non-Independent Occasional Music Space
Extended Stay Hotel VACANT RESIDENTIAL LAND Sidebar Nashville 401 B PRESIDENT RONALD REAGAN WAY Non-Independent Occasional Music Space
Full Service Resturants STRIP SHOPPING CENTER Sinema 2600 8TH AVE S Quasi-independent Occasional Music Space
Full Service Resturants OFFICE BLDG (3 OR MORE STORIES) Skull’s Rainbow Club 222 4TH AVE N Indep. Owned and Operated Music Space
NA VACANT COMMERCIAL LAND Skydeck on Broadway 600 B BROADWAY Non-Independent Music Space
Full Service Hotel HOTEL/MOTEL Snitch 210 4TH AVE N Non-Independent Occasional Music Space
Limited Service-Fast Food HOTEL/MOTEL Sobro Sports Bar and Grill (Hilton Garden Inn Downtown) 419 3RD AVE S Non-Independent Occasional Music Space
NA PARKING LOT Solberg Studios 1618 JEFFERSON ST Quasi-independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Sonny’s Patio Pub and Refuge 1318 6TH AVE N Indep. Owned and Operated Music Space
NA RESTURANT/CAFETERIA Southern Grist Brewing East Nashville 754 DOUGLAS AVE Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Springwater Supper Club & Lounge 2701 POSTON AVE Indep. Owned and Operated Occasional Music Space
Limited Service-Fast Food ONE STORY GENERAL RETAIL STORE Star Rover Sound 1400 ADAMS ST Quasi-independent Music Space
Full Service Hotel HOTEL/MOTEL Symphony Lounge at Hilton Nashville Downtown 121 4TH AVE S Non-Independent Occasional Music Space
Microbrewery PACKING PLANT/FOOD PROCESSING Tailgate Brewery-HQ 7300 CHARLOTTE PIKE Quasi-independent Occasional Music Space
Full Service Resturants STRIP SHOPPING CENTER TailGate Brewery East 811 GALLATIN AVE Quasi-independent Occasional Music Space
NA RESTURANT/CAFETERIA TailGate Brewery Music Row 1538 DEMONBREUN ST Quasi-independent Occasional Music Space
Microbrewery LIGHT MANUFACTURING Tennessee Brew Works 809 EWING AVE Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Tequila Cowboy 305 BROADWAY Quasi-independent Music Space
Musical Groups + Artists STRIP SHOPPING CENTER Texas Troubadour Theatre 2416 MUSIC VALLEY DR Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The 5 Spot 1006 FORREST AVE Indep. Owned and Operated Music Space
Full Service Resturants LIGHT MANUFACTURING The Back Corner 1401 5TH AVE N Non-Independent Occasional Music Space
NA CLUB/UNION HALL/LODGE The Ballad of Emerson Hall 2510 GALLATIN AVE Non-Independent Occasional Music Space
NA OFFICE BLDG (ONE OR TWO STORIES) The Basement 1604 8TH AVE S Indep. Owned and Operated Music Space
NA NIGHTCLUB/LOUNGE The Basement East 917 WOODLAND ST Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Big Bang Dueling Pianos 209 3RD AVE N Quasi-independent Music Space
Sound Recording Studios RECORDING STUDIO The Blue Room at Third Man Records 623 7TH AVE S Quasi-independent Music Space
General Retail CONDOMINIUM OFC OR OTHER COM CONDO The Bluebird Cafe 4104 A HILLSBORO PIKE Indep. Owned and Operated Music Space
NA STRIP SHOPPING CENTER The Bowery Vault 2905 GALLATIN PIKE Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Cobra 2511 GALLATIN AVE Indep. Owned and Operated Music Space
Full Service Hotel VACANT COMMERCIAL LAND The Countrypolitan Bar & Kitchen (inside Hotel Indigo) 301 UNION ST Non-Independent Music Space
Fitness + Recreational Sports GOLF COURSE/DRIVING RANGE The Cowan 500 COWAN ST Non-Independent Occasional Music Space
Offices of Lawyers HOTEL/MOTEL The District Bar & Kitchen (Hotel Indigo Downtown) 315 UNION ST Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Donelson Pub 945 ALLEN RD Quasi-independent Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER The East Room 2412 GALLATIN AVE Indep. Owned and Operated Music Space
NA STRIP SHOPPING CENTER The Eighth Room 2106 8TH AVE S Quasi-independent Music Space
Apts W/Clubhouse APARTMENT: HIGH RISE (3 STORIES OR GREATER) The Electric Jane 1221 DIVISION ST Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA The End 2219 ELLISTON PL Indep. Owned and Operated Music Space
NA VACANT RESIDENTIAL LAND The Fairgrounds Nashville 0 RAINS AVE Non-Independent Occasional Music Space
NA VACANT RESIDENTIAL LAND The Fisher Center for the Performing Arts 2020 BELMONT BLVD Non-Independent Occasional Music Space
General Retail STRIP SHOPPING CENTER The Getalong 700 A FATHERLAND ST Quasi-independent Occasional Music Space
Full Service Resturants APARTMENT: HIGH RISE (3 STORIES OR GREATER) The Goat 1226 2ND AVE N Non-Independent Occasional Music Space
NA SMALL WAREHOUSE The Green Light 833 9TH AVE S Quasi-independent Occasional Music Space
NA CONDOMINIUM OFC OR OTHER COM CONDO The Hampton Social 201 1ST AVE S Non-Independent Occasional Music Space
Automotive Body & Paint AUTO REPAIR/BODY SHOP The Hideout Salon and Lounge 2605 GALLATIN AVE Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The High Watt 1 CANNERY ROW Non-Independent Music Space
NA OFFICE BLDG (3 OR MORE STORIES) The Jamnasium-nashville City Center 511 UNION ST Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Lipstick Lounge 1400 WOODLAND ST Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA The Listening Room 618 4TH AVE S Indep. Owned and Operated Music Space
NA CONVENIENCE MARKET WITHOUT GAS The Local Distro 614 GARFIELD ST Indep. Owned and Operated Occasional Music Space
Small Resturants-Independents NIGHTCLUB/LOUNGE The Local Nashville 110 28TH AVE N Quasi-independent Music Space
Full Service Resturants ONE STORY GENERAL RETAIL STORE The Nashville Palace 2611 A MCGAVOCK PIKE Non-Independent Music Space
Small Resturants-Independents OFFICE BLDG (ONE OR TWO STORIES) The Office Nashville 604 GALLATIN AVE Quasi-independent Music Space
NA PARK OR RECREATION The Parthenon 2500 WEST END AVE Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Roadside Bar & Grill 4617 OLD HICKORY BLVD Quasi-independent Music Space
Full Service Resturants RESTURANT/CAFETERIA The Row Kitchen & Pub 110 LYLE AVE Quasi-independent Music Space
NA RESTURANT/CAFETERIA The Rum Room 2116 MEHARRY BLVD Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev ONE STORY GENERAL RETAIL STORE The Second Fiddle 420 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Stage on Broadway 412 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Station Inn 402 12TH AVE S Indep. Owned and Operated Music Space
Full Service Resturants RESTURANT/CAFETERIA The Stillery (Downtown) 113 2ND AVE N Quasi-independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA The Treehouse 1011 CLEARVIEW AVE Quasi-independent Occasional Music Space
NA SMALL SERVICE SHOP The Underdog 3208 GALLATIN PIKE Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA The Valentine 312 BROADWAY Non-Independent Music Space
Caterers, Food Wagon, Mobile TERMINAL/DISTRIBUTION WARHOUSE The Vinyl Lounge 1414 3RD AVE S Quasi-independent Music Space
Small Resturants-Independents LIGHT MANUFACTURING The Wedge pizza Pub 2020 LINDELL AVE Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Thirsty Turtle Sports Grill 1307 BELL RD Quasi-independent Occasional Music Space
Full Service Resturants RESTURANT/CAFETERIA Tin Roof Broadway 316 BROADWAY Quasi-independent Occasional Music Space
NA ONE STORY GENERAL RETAIL STORE Tomato Art Fest 1106 WOODLAND ST Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Tootsie’s Orchid Lounge 422 BROADWAY Non-Independent Music Space
NA METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Tootsie’s Orchid Lounge (Nashville Intl. Airport) 1 TERMINAL DR Non-Independent Occasional Music Space
Full Service Resturants FAST FOOD Tribe 1515 CHURCH ST Indep. Owned and Operated Occasional Music Space
Full Service Resturants HOTEL/MOTEL TRUE Music Room and Bar (Cambria Hotel & Suites) 118 8TH AVE S Non-Independent Occasional Music Space
NA SCHOOL OR COLLEGE TSU Performing Arts Center 3401 JOHN A MERRITT BLVD Non-Independent Occasional Music Space
NA NIGHTCLUB/LOUNGE Twelve Keys Saloon 4719 ANDREW JACKSON PKWY Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Twin Kegs II 327 HERMITAGE AVE Quasi-independent Occasional Music Space
Full Service Hotel HOTEL/MOTEL Up a roof top lounge 901 DIVISION ST Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev FAST FOOD Urban Cowboy Public House Bar 1603 WOODLAND ST Quasi-independent Occasional Music Space
Small Resturants-Independents RESTURANT/CAFETERIA Van Gogh’s Ear Wine Bar 1112 WOODLAND ST Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Vinyl Tap 2038 GREENWOOD AVE Quasi-independent Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA WannaB’s Karaoke Bar 305 BROADWAY Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev ONE STORY GENERAL RETAIL STORE Whiskey Bent Saloon 306 BROADWAY Non-Independent Occasional Music Space
Full Service Resturants NIGHTCLUB/LOUNGE Wildhorse Saloon 120 2ND AVE N Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev RESTURANT/CAFETERIA Winners Bar & Grill 1913 DIVISION ST Non-Independent Occasional Music Space
Limited Service-Fast Food APARTMENT: HIGH RISE (3 STORIES OR GREATER) Yay Yay’s 1903 JEFFERSON ST Quasi-independent Occasional Music Space
Microbrewery RESTURANT/CAFETERIA Yee Haw Brewing Co.  423 6TH AVE S Non-Independent Occasional Music Space
NA HOTEL/MOTEL Yolan 401 KOREAN VETERANS BLVD Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev STRIP SHOPPING CENTER Zanies Comedy Showplace Nashville 2025 8TH AVE S Quasi-independent Music Space

How many are actually categorized as “Nightclub” LU and/or Music / event business?

Just 47 - this is about 18.5%

11 of these are IMVs - almost half

nash_venue_data %>%
  filter(str_detect(BUSTYPE, "Music") |
           str_detect(BUSTYPE, "Event") |
           str_detect(LUDesc, "NIGHTCLUB") |
           str_detect(LUDesc, "THEATER")) %>%
  select(BUSTYPE, LUDesc, name, address_admin, IMV, music_space) %>% 
  kable() %>%
  kable_styling()
BUSTYPE LUDesc name address_admin IMV music_space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE 404 Bar & Grill 404 ELYSIAN FIELDS RD Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE AJ’s Good Time Bar 421 BROADWAY Quasi-independent Music Space
Music/Performance Venue VACANT COMMERCIAL LAND Ascend Amphitheater 310 1ST AVE S Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Big Shotz 115 2ND AVE N Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Bootleggers Inn 207 BROADWAY Quasi-independent Music Space
Musical Groups + Artists METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Bridgestone Arena 501 BROADWAY Non-Independent Occasional Music Space
Musical Groups + Artists MUSEUM OR OTHER CULTURAL ORG. Country Music Hall of Fame and Museum 222 REP JOHN LEWIS WAY S Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Dawg House Saloon 1522 DEMONBREUN ST Indep. Owned and Operated Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Dee’s Country Cocktail Lounge 102 E PALESTINE AVE Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Drkmttr Collective 1111 DICKERSON PIKE Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Famous Nashville 110 2ND AVE N Quasi-independent Music Space
Music/Performance Venue THEATER/AUDITORIUM Grand Ole Opry 2804 OPRYLAND DR Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Honky Tonk Central 329 BROADWAY Quasi-independent Music Space
Small Resturants-Independents NIGHTCLUB/LOUNGE Island Vibes 1316 ANTIOCH PIKE Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Jason Aldean’s Kitchen + Rooftop Bar 309 BROADWAY Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Layla’s Honky Tonk 418 BROADWAY Indep. Owned and Operated Music Space
NA NIGHTCLUB/LOUNGE Loser Most Wanted Bar & Grill (Midtown) 111 4TH AVE S Quasi-independent Occasional Music Space
Full Service Resturants NIGHTCLUB/LOUNGE Lucky Bastard Saloon 408 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Mickeys Tavern 2907 GALLATIN PIKE Non-Independent Occasional Music Space
Office Administrative Services THEATER/AUDITORIUM Musicians Hall of Fame and Museum 417 4TH AVE N Non-Independent Occasional Music Space
Musical Groups + Artists OFFICE BLDG (3 OR MORE STORIES) Nashville Children’s Theatre 700 PRESIDENT RONALD REAGAN WAY Non-Independent Occasional Music Space
Office Administrative Services THEATER/AUDITORIUM Nashville Municipal Auditorium 417 4TH AVE N Non-Independent Music Space
Musical Groups + Artists STRIP SHOPPING CENTER Nashville Nightlife Theater 2416 MUSIC VALLEY DR Non-Independent Music Space
Full Service Resturants NIGHTCLUB/LOUNGE Nudie’s Honky Tonk 409 BROADWAY Non-Independent Music Space
Event Venue TERMINAL/DISTRIBUTION WARHOUSE Oz Arts Nashville 6172 COCKRILL BEND CIR Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Rebar at the Dam 3248 BLACKWOOD DR Quasi-independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Red Door Saloon 1816 DIVISION ST Non-Independent Occasional Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Red Door Saloon East 1010 FORREST AVE Non-Independent Occasional Music Space
Music/Performance Venue CLUB/UNION HALL/LODGE Rocketown (Main Building) 601 4TH AVE S Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Rosie’s Twin Kegs 413 THOMPSON LN Indep. Owned and Operated Occasional Music Space
Musical Groups + Artists RECREATIONAL Ryman Auditorium 116 REP JOHN LEWIS WAY N Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Springwater Supper Club & Lounge 2701 POSTON AVE Indep. Owned and Operated Occasional Music Space
Musical Groups + Artists STRIP SHOPPING CENTER Texas Troubadour Theatre 2416 MUSIC VALLEY DR Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The 5 Spot 1006 FORREST AVE Indep. Owned and Operated Music Space
NA NIGHTCLUB/LOUNGE The Basement East 917 WOODLAND ST Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Big Bang Dueling Pianos 209 3RD AVE N Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Cobra 2511 GALLATIN AVE Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Donelson Pub 945 ALLEN RD Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The High Watt 1 CANNERY ROW Non-Independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Lipstick Lounge 1400 WOODLAND ST Indep. Owned and Operated Music Space
Small Resturants-Independents NIGHTCLUB/LOUNGE The Local Nashville 110 28TH AVE N Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Roadside Bar & Grill 4617 OLD HICKORY BLVD Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Stage on Broadway 412 BROADWAY Quasi-independent Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE The Station Inn 402 12TH AVE S Indep. Owned and Operated Music Space
Drinking Places (Alcoholic Bev NIGHTCLUB/LOUNGE Tootsie’s Orchid Lounge 422 BROADWAY Non-Independent Music Space
NA NIGHTCLUB/LOUNGE Twelve Keys Saloon 4719 ANDREW JACKSON PKWY Indep. Owned and Operated Music Space
Full Service Resturants NIGHTCLUB/LOUNGE Wildhorse Saloon 120 2ND AVE N Quasi-independent Occasional Music Space

6.4. Venue and Property Ownership

At how many venues is the owner of the property and owner of the venue the same? Or have the same address?

Note that a few addresses have some address alias problems in the property data and are corrected here.

Music Spaces - is the owner’s address the same as the property address (a likely sign of site control)

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  group_by(site_control, IMV) %>%
  tally() %>%
  kable() %>%
  kable_styling()
site_control IMV n
Off-Site Owner Address Indep. Owned and Operated 17
Off-Site Owner Address Non-Independent 33
Off-Site Owner Address Quasi-independent 33
On-Site Owner Address Indep. Owned and Operated 5
On-Site Owner Address Non-Independent 2
On-Site Owner Address Quasi-independent 8
NA Indep. Owned and Operated 2
NA Non-Independent 5
NA Quasi-independent 8

7. Venues and Threats

  • What are the venues listed as threatened, where are they? (map) What are their characteristics?
nash_venue_data %>%
  filter(threats_neighbors == 1 |
           threats_cost == 1 |
           threats_licensing == 1) %>%
  select(name, address_admin, APN, threats_neighbors, threats_cost, threats_licensing, Condition, TotlAssd) %>%
  kable() %>%
  kable_styling()
name address_admin APN threats_neighbors threats_cost threats_licensing Condition TotlAssd
3rd & Lindsley 805 PRESIDENT RONALD REAGAN WAY 09315006000 1 0 1 Average 4341200
Alley Taps 162 4TH AVE N 205 093061F20500CO 0 1 0 Average 222880
Andrew Jackson Hall-TPAC 301 REP JOHN LEWIS WAY N 09302300700 0 1 0 NA 0
Ascend Amphitheater 310 1ST AVE S 09306004100 1 0 0 NA 0
Cafe Coco 210 LOUISE AVE 09215010600 1 1 1 Average 426920
CE gallery (WEHO and/or Madison location) 425 CHESTNUT ST 10503017100 0 1 0 Average 17571280
Corner Bar at Elliston Place 2200 ELLISTON PL 09215011300 1 1 0 Average 2248400
Deep Tropics (Music Festival) 900 ROSA L PARKS BLVD 08213036600 0 1 0 NA 0
Drkmttr Collective 1111 DICKERSON PIKE 08203000500 1 1 1 Average 124040
EXIT/IN 2208 ELLISTON PL 09215011000 0 1 0 Average 2015120
Grimey’s New & Preloved Music 1060 E TRINITY LN 07206022000 0 1 0 Average 729200
Moonlite Drive-in 941 B MAIN ST 082124D90000CO 0 1 0 NA 0
Out Loud Music Festival 14 JAMES ROBERTSON PKWY 08215006700 0 1 0 NA 1495720
The Basement 1604 8TH AVE S 10506019900 0 1 0 Average 440080
The Basement East 917 WOODLAND ST 08212033600 0 1 0 Average 964880
The Eighth Room 2106 8TH AVE S 10510029900 0 1 0 Average 277640
The Office Nashville 604 GALLATIN AVE 08305012900 0 1 0 Average 2490000
Yay Yay’s 1903 JEFFERSON ST 09203042000 0 1 0 Average 1920000
  • What properties have the highest disparity between estimated square footage value and assessed value?

8. Change in Nashville

  • Map of change in rents by census tract (over 10 years)

8.2. Property appraisal values for recent sales

  • Price per sqft by grid cell in Nashville (based on cadastral data)
parcels = st_read("~/Github/Nashville_IMV/data/metro/Nashville_Parcel_data.shp") %>% st_transform(4326)
## Reading layer `Nashville_Parcel_data' from data source 
##   `C:\Users\Michael\Documents\GitHub\Nashville_IMV\data\metro\Nashville_Parcel_data.shp' 
##   using driver `ESRI Shapefile'
## Simple feature collection with 273112 features and 63 fields (with 22 geometries empty)
## Geometry type: MULTIPOLYGON
## Dimension:     XY
## Bounding box:  xmin: 1656738 ymin: 595512.4 xmax: 1817374 ymax: 755221.4
## Projected CRS: NAD83 / Tennessee (ftUS)

Filtering non-zero sales since 2020, joining to fishnet and averaging sales price by sq footage

fishnet_parcels <- st_make_grid(d1_aggregates_nash %>%
                          st_transform(crs = 2274), 
                        cellsize = 5280/2) %>% #size in feet - half mile
  st_sf() %>%
  st_transform(crs = 4326)

fishnet_parcels <- fishnet_parcels[d1_aggregates_nash %>%
                          st_transform(crs = 4326),] %>%
  mutate(uniqueID = rownames(.)) %>%
  select(uniqueID) %>%
  mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
         lat=map_dbl(geometry, ~st_centroid(.x)[[2]]))

# Join the fishet to the points

fishnet_parcels <- st_join(fishnet_parcels, 
                parcels %>%
                  filter(SalePrice > 0,
                         year(ymd(OwnDate))> 2020,
                         st_is_valid(.)) %>%
                  #sample_n(1000) %>%
                  mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                         lat=map_dbl(geometry, ~st_centroid(.x)[[2]])) %>%
                  filter(is.na(lon)== FALSE,
                         is.na(lat)== FALSE) %>%
                  st_as_sf(coords = c("lon", "lat"), crs = 4326), 
                join = st_intersects, 
                left = TRUE) %>%
  select(uniqueID, TotlAppr, starea) %>%
  group_by(uniqueID) %>% 
  summarise(medianAppraisal = median(TotlAppr/starea, na.rm = TRUE),
            n_sales = n()) %>%
  #mutate(n = ifelse(n == 1, 0, n)) %>%
  #rename(n_venues = n) %>%
  as.data.frame() %>%
  select(-geometry) %>%
  left_join(fishnet_parcels, .)
## Joining, by = "uniqueID"
# Make sure you set the labels here to reflect the actual max density by cell

max(fishnet_parcels$medianAppraisal)
## [1] NA
ggplot()+
  geom_sf(data = fishnet_parcels %>%
            filter(is.na(medianAppraisal) == FALSE), 
          aes(fill = medianAppraisal),
          color = "transparent",
          alpha = 0.6)+
 scale_fill_viridis('Price sqft', direction = -1)+
  geom_sf(data = d1_aggregates_nash %>%
            st_transform(4326), fill = "transparent")+
  geom_point(data = nash_venue_data %>%
         filter(music_space == "Music Space") %>%
           filter(IMV == "Indep. Owned and Operated"),
             aes(x = x, y = y, color = IMV),
             size = 1.5,
             alpha = 0.5)+
  labs(
    title = "Median Appraised Value per Square Foot, Sales 2021-23",
    subtitle = "Half mile grid",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

8.2.1. Venue exposure to real estate risk

Venue Appraised Value / sqft relative to median area appraisal (fishnet cell)

If the value is “above” the y = x line, that means the neighborhood square footage appraisal value of recent sales is higher than the square footage appraisal value of the building.

nash_venue_data %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  filter(value_sqft < 1000) %>%
  filter(music_space == "Music Space") %>%
  ggplot()+
  geom_point(aes(y = value_sqft, x = medianAppraisal))+
  geom_abline(slope = 1)+
  facet_wrap(~IMV)+
  plotTheme

What are the most exposed venues as far as ratio of median appraisal to their appraisal?

nash_venue_data %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  as.data.frame() %>%
  filter(music_space == "Music Space") %>%
  mutate(appraisal_ratio = medianAppraisal/value_sqft) %>%
  select(name, appraisal_ratio, value_sqft, address_admin, medianAppraisal, TotlAppr, LUDesc, IMV) %>%
  arrange(-appraisal_ratio) %>%
  kable() %>%
  kable_styling()
name appraisal_ratio value_sqft address_admin medianAppraisal TotlAppr LUDesc IMV
Musicians Corner 1432.5397460 1.959178e-01 2500 WEST END AVE 280.66007 779000 PARK OR RECREATION Non-Independent
Ray Stevens CabaRay 15.6853618 2.673632e+01 5724 RIVER RD 419.36887 7640000 RESTURANT/CAFETERIA Quasi-independent
American Legion Post 82 10.5318843 2.574478e+01 3204 GALLATIN PIKE 271.14108 2254100 CLUB/UNION HALL/LODGE Quasi-independent
Cheekwood Botanical Garden and Museum of Art 10.4726478 6.819147e+00 111 CHEEK RD 71.41452 15707582 MUSEUM OR OTHER CULTURAL ORG. Quasi-independent
Eastside Bowl 9.7369319 1.356816e+01 1508 GALLATIN PIKE 132.11220 9019100 STRIP SHOPPING CENTER Quasi-independent
Bucanas 2009 9.2014970 1.424986e+01 3802 NOLENSVILLE PIKE 131.12006 5487200 STRIP SHOPPING CENTER Quasi-independent
Grimey’s New & Preloved Music 4.8591219 5.580043e+01 1060 E TRINITY LN 271.14108 1823000 STRIP SHOPPING CENTER Quasi-independent
Nashville Nightlife Theater 4.8223170 2.097143e+01 2416 MUSIC VALLEY DR 101.13090 9354400 STRIP SHOPPING CENTER Non-Independent
Texas Troubadour Theatre 4.8223170 2.097143e+01 2416 MUSIC VALLEY DR 101.13090 9354400 STRIP SHOPPING CENTER Quasi-independent
The Bowery Vault 4.4387391 6.108516e+01 2905 GALLATIN PIKE 271.14108 612000 STRIP SHOPPING CENTER Quasi-independent
404 Bar & Grill 4.3516875 3.013085e+01 404 ELYSIAN FIELDS RD 131.12006 315000 NIGHTCLUB/LOUNGE Indep. Owned and Operated
3rd & Lindsley 4.1354623 1.245753e+02 805 PRESIDENT RONALD REAGAN WAY 515.17645 10853000 BUSINESS CENTER Indep. Owned and Operated
Twelve Keys Saloon 4.1047923 2.476879e+01 4719 ANDREW JACKSON PKWY 101.67075 604200 NIGHTCLUB/LOUNGE Indep. Owned and Operated
Sonny’s Patio Pub and Refuge 4.0164422 1.039319e+02 1318 6TH AVE N 417.43639 3984000 RESTURANT/CAFETERIA Indep. Owned and Operated
Plaza Mariachi 3.3514939 3.912287e+01 3955 NOLENSVILLE PIKE 131.12006 8333500 SHOPPING CENTER Non-Independent
The Electric Jane 3.2851208 1.499996e+02 1221 DIVISION ST 492.76666 13460000 APARTMENT: HIGH RISE (3 STORIES OR GREATER) Indep. Owned and Operated
Nashville Municipal Auditorium 3.1053772 1.199997e+02 417 4TH AVE N 372.64421 14113400 THEATER/AUDITORIUM Non-Independent
Ascend Amphitheater 2.9279555 1.499999e+02 310 1ST AVE S 439.19300 81936300 VACANT COMMERCIAL LAND Non-Independent
The Eighth Room 2.6988915 9.373143e+01 2106 8TH AVE S 252.97096 694100 STRIP SHOPPING CENTER Quasi-independent
Nashville Jazz Workshop 2.3877559 4.398922e+01 1012 BUCHANAN ST 105.03551 900600 OFFICE BLDG (ONE OR TWO STORIES) Indep. Owned and Operated
Star Rover Sound 2.2833876 2.949483e+02 1400 ADAMS ST 673.48132 5010700 ONE STORY GENERAL RETAIL STORE Quasi-independent
Zanies Comedy Showplace Nashville 2.2631985 1.143943e+02 2025 8TH AVE S 258.89701 3139300 STRIP SHOPPING CENTER Quasi-independent
The Cobra 2.1761593 4.492654e+01 2511 GALLATIN AVE 97.76730 391400 NIGHTCLUB/LOUNGE Indep. Owned and Operated
HOME (Helping Our Music Evolve) 2.1237729 1.483640e+02 615 MAIN ST 315.09138 8272300 OFFICE BLDG (ONE OR TWO STORIES) Quasi-independent
The High Watt 2.0961535 2.350814e+02 1 CANNERY ROW 492.76666 7065700 NIGHTCLUB/LOUNGE Non-Independent
The Vinyl Lounge 2.0295363 5.454001e+01 1414 3RD AVE S 110.69092 1401700 TERMINAL/DISTRIBUTION WARHOUSE Quasi-independent
The Nashville Palace 1.9987306 5.059756e+01 2611 A MCGAVOCK PIKE 101.13090 2953400 ONE STORY GENERAL RETAIL STORE Non-Independent
The Basement 1.9514830 1.403173e+02 1604 8TH AVE S 273.82685 1100200 OFFICE BLDG (ONE OR TWO STORIES) Indep. Owned and Operated
The East Room 1.9293442 5.067385e+01 2412 GALLATIN AVE 97.76730 750500 STRIP SHOPPING CENTER Indep. Owned and Operated
Oz Arts Nashville 1.8631645 1.163039e+01 6172 COCKRILL BEND CIR 21.66934 2533100 TERMINAL/DISTRIBUTION WARHOUSE Non-Independent
Riverside Revival Nashville 1.8080758 9.679551e+01 1600 RIVERSIDE DR 175.01361 5523500 OFFICE BLDG (ONE OR TWO STORIES) Non-Independent
The Row Kitchen & Pub 1.7875014 1.780929e+02 110 LYLE AVE 318.34134 1706700 RESTURANT/CAFETERIA Quasi-independent
Solberg Studios 1.6965495 4.683196e+01 1618 JEFFERSON ST 79.45273 224400 PARKING LOT Quasi-independent
Belcourt Theatre 1.6963365 1.968057e+02 2100 BELCOURT AVE 333.84873 1800300 MUSEUM OR OTHER CULTURAL ORG. Non-Independent
The Local Nashville 1.6745206 2.394804e+02 110 28TH AVE N 401.01481 1773400 NIGHTCLUB/LOUNGE Quasi-independent
The Station Inn 1.6417244 3.001519e+02 402 12TH AVE S 492.76666 3399400 NIGHTCLUB/LOUNGE Indep. Owned and Operated
Commodore Grille (Holiday Inn Vanderbilt) 1.4931209 2.685749e+02 2613 WEST END AVE 401.01481 33342500 HOTEL/MOTEL Non-Independent
Dee’s Country Cocktail Lounge 1.4100012 1.038931e+01 102 E PALESTINE AVE 14.64893 194600 NIGHTCLUB/LOUNGE Quasi-independent
EXIT/IN 1.4038159 2.267686e+02 2208 ELLISTON PL 318.34134 5037800 RESTURANT/CAFETERIA Non-Independent
The End 1.3836681 2.300706e+02 2219 ELLISTON PL 318.34134 1603500 RESTURANT/CAFETERIA Indep. Owned and Operated
Vinyl Tap 1.3791449 5.231058e+01 2038 GREENWOOD AVE 72.14386 843100 RESTURANT/CAFETERIA Quasi-independent
Brooklyn Bowl Nashville 1.3552967 3.566269e+02 915 3RD AVE N 483.33523 13981200 STRIP SHOPPING CENTER Non-Independent
Sambuca (Restaurant) 1.3403658 3.676359e+02 1209 PINE ST 492.76666 28505315 APARTMENT: HIGH RISE (3 STORIES OR GREATER) Non-Independent
Bobby’s Idle Hour Tavern 1.3298331 1.637843e+02 9 MUSIC SQ S 217.80579 1284200 BRANCH FINANCIAL INSTITUTION Quasi-independent
Rudy’s Jazz Room 1.3083235 3.766398e+02 600 9TH AVE S 492.76666 6890700 RESTURANT/CAFETERIA Indep. Owned and Operated
Jane’s Hideaway 1.2357601 6.666966e+01 403 GALLATIN AVE 82.38770 1335900 STRIP SHOPPING CENTER Indep. Owned and Operated
Live Oak 1.1884247 4.931129e+02 1530 DEMONBREUN ST 586.02759 4725600 ONE STORY GENERAL RETAIL STORE Quasi-independent
General Jackson Showboat 1.1540129 2.750055e+01 577 OPRY MILLS DR 31.73598 9116200 DOCK/MARINA Non-Independent
Andrew Jackson Hall-TPAC 1.0633631 3.504393e+02 301 REP JOHN LEWIS WAY N 372.64421 28240500 OFFICE BLDG (3 OR MORE STORIES) Non-Independent
James K Polk Theater-TPAC 1.0633631 3.504393e+02 301 REP JOHN LEWIS WAY N 372.64421 28240500 OFFICE BLDG (3 OR MORE STORIES) Non-Independent
Delgado Guitars 1.0499978 5.513379e+01 919 C GALLATIN AVE 57.89036 2065400 SMALL WAREHOUSE Quasi-independent
City Winery Nashville 1.0439998 1.599989e+02 600 MIDDLETON ST 167.03880 10872500 RESTURANT/CAFETERIA Quasi-independent
The Countrypolitan Bar & Kitchen (inside Hotel Indigo) 1.0341049 3.500000e+02 301 UNION ST 361.93673 1524600 VACANT COMMERCIAL LAND Non-Independent
Bongo Java After Hours Theatre 1.0313063 1.817289e+02 2007 BELMONT BLVD 187.41816 1424900 RESTURANT/CAFETERIA Non-Independent
The Roadside Bar & Grill 1.0287644 1.556260e+01 4617 OLD HICKORY BLVD 16.01025 291500 NIGHTCLUB/LOUNGE Quasi-independent
Nashville’s War Memorial Auditorium 1.0107479 3.686817e+02 301 6TH AVE N 372.64421 35331500 OFFICE BLDG (ONE OR TWO STORIES) Non-Independent
Marathon Music Works 1.0029465 7.271735e+01 1404 CLINTON ST 72.93161 7032000 HEAVY MANUFACTURING Non-Independent
Rocketown (Main Building) 0.9982206 1.673366e+02 601 4TH AVE S 167.03880 8892800 CLUB/UNION HALL/LODGE Non-Independent
Grand Ole Opry 0.9935028 3.194353e+01 2804 OPRYLAND DR 31.73598 20204000 THEATER/AUDITORIUM Non-Independent
Music City Center 0.9759835 4.500004e+02 201 REP JOHN LEWIS WAY S 439.19300 140742500 METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK Non-Independent
Schermerhorn Symphony Center 0.9759817 4.500012e+02 1 SYMPHONY PL 439.19300 50573300 MUSEUM OR OTHER CULTURAL ORG. Non-Independent
Drkmttr Collective 0.9378978 4.187598e+01 1111 DICKERSON PIKE 39.27539 310100 NIGHTCLUB/LOUNGE Indep. Owned and Operated
The Lipstick Lounge 0.9122648 1.128742e+02 1400 WOODLAND ST 102.97116 1229200 NIGHTCLUB/LOUNGE Indep. Owned and Operated
Jason Aldean’s Kitchen + Rooftop Bar 0.8745713 5.021809e+02 309 BROADWAY 439.19300 1312500 NIGHTCLUB/LOUNGE Non-Independent
Bourbon Street Blues and Boogie Bar 0.8534368 4.240932e+02 218 4TH AVE N 361.93673 3694700 FAST FOOD Quasi-independent
Ryman Auditorium 0.8272549 5.309041e+02 116 REP JOHN LEWIS WAY N 439.19300 33301700 RECREATIONAL Non-Independent
The Office Nashville 0.8128867 1.013520e+02 604 GALLATIN AVE 82.38770 6225000 OFFICE BLDG (ONE OR TWO STORIES) Quasi-independent
The 5 Spot 0.7911014 1.041430e+02 1006 FORREST AVE 82.38770 771200 NIGHTCLUB/LOUNGE Indep. Owned and Operated
The Blue Room at Third Man Records 0.7889272 2.117290e+02 623 7TH AVE S 167.03880 4427000 RECORDING STUDIO Quasi-independent
The Basement East 0.7706077 1.457276e+02 917 WOODLAND ST 112.29883 2412200 NIGHTCLUB/LOUNGE Quasi-independent
The Listening Room 0.7652981 2.182663e+02 618 4TH AVE S 167.03880 6560300 RESTURANT/CAFETERIA Indep. Owned and Operated
The Donelson Pub 0.7521871 3.262866e+01 945 ALLEN RD 24.54286 326900 NIGHTCLUB/LOUNGE Quasi-independent
Bowie’s 0.7499567 4.826102e+02 174 3RD AVE N 361.93673 2522700 RESTURANT/CAFETERIA Quasi-independent
McNamara’s Irish Pub 0.7186126 2.284852e+01 2740 OLD LEBANON PIKE 16.41924 1413300 RESTURANT/CAFETERIA Indep. Owned and Operated
Flamingo Cocktail Club 0.6647051 1.665264e+02 509 HOUSTON ST 110.69092 1305700 RESTURANT/CAFETERIA Quasi-independent
Bootleggers Inn 0.6568185 6.686672e+02 207 BROADWAY 439.19300 2038900 NIGHTCLUB/LOUNGE Quasi-independent
Robert’s Western World 0.6166255 7.122524e+02 416 B BROADWAY 439.19300 2171800 ONE STORY GENERAL RETAIL STORE Quasi-independent
Legends Corner 0.5794421 7.579584e+02 424 BROADWAY 439.19300 6933500 STRIP SHOPPING CENTER Quasi-independent
Rosemary and Beauty Queen (bar); Pink Spiders (band) 0.5537810 1.487731e+02 1102 FORREST AVE 82.38770 1166500 RESTURANT/CAFETERIA Indep. Owned and Operated
Bavarian Bierhaus 0.5448957 5.824232e+01 433 OPRY MILLS DR 31.73598 315252000 ENCLOSED MALL Non-Independent
Play Dance Bar 0.5332670 2.355205e+02 1517 CHURCH ST 125.59531 5642600 STRIP SHOPPING CENTER Indep. Owned and Operated
Nectar Urban Cantina 0.5259031 3.082615e+01 206 MCGAVOCK PIKE 16.21156 819100 RESTURANT/CAFETERIA Indep. Owned and Operated
Anzie Blue 0.5244302 6.365932e+02 1803 21ST AVE S 333.84873 23570500 STRIP SHOPPING CENTER Quasi-independent
Hard Rock Cafe 0.4987724 8.805479e+02 108 2ND AVE N 439.19300 19561900 RESTURANT/CAFETERIA Non-Independent
Layla’s Honky Tonk 0.4504473 9.750153e+02 418 BROADWAY 439.19300 2548300 NIGHTCLUB/LOUNGE Indep. Owned and Operated
Tootsie’s Orchid Lounge 0.4342829 1.011306e+03 422 BROADWAY 439.19300 3524200 NIGHTCLUB/LOUNGE Non-Independent
The Big Bang Dueling Pianos 0.3946244 9.171675e+02 209 3RD AVE N 361.93673 4394700 NIGHTCLUB/LOUNGE Quasi-independent
The Second Fiddle 0.3900853 1.125890e+03 420 BROADWAY 439.19300 3923500 ONE STORY GENERAL RETAIL STORE Quasi-independent
Skull’s Rainbow Club 0.3845357 9.412305e+02 222 4TH AVE N 361.93673 4100000 OFFICE BLDG (3 OR MORE STORIES) Indep. Owned and Operated
Johnny Cash’s Kitchen & Saloon 0.3698348 1.187538e+03 121 3RD AVE S 439.19300 6207500 RESTURANT/CAFETERIA Non-Independent
CE gallery (WEHO and/or Madison location) 0.3512420 3.151415e+02 425 CHESTNUT ST 110.69092 43928200 HOTEL/MOTEL Quasi-independent
The Stage on Broadway 0.3493707 1.257097e+03 412 BROADWAY 439.19300 6571100 NIGHTCLUB/LOUNGE Quasi-independent
Acme Feed & Seed 0.3395642 1.293402e+03 101 BROADWAY 439.19300 9577900 RESTURANT/CAFETERIA Quasi-independent
Puckett’s Grocery & Restaurant Downtown 0.3297924 1.129936e+03 201 REP JOHN LEWIS WAY N 372.64421 17227000 OFFICE BLDG (3 OR MORE STORIES) Non-Independent
Famous Nashville 0.3227813 1.360652e+03 110 2ND AVE N 439.19300 7705100 NIGHTCLUB/LOUNGE Quasi-independent
Honky Tonk Central 0.3198029 1.373324e+03 329 BROADWAY 439.19300 5982200 NIGHTCLUB/LOUNGE Quasi-independent
Southern Grist Brewing East Nashville 0.3146151 1.479657e+02 754 DOUGLAS AVE 46.55223 837900 RESTURANT/CAFETERIA Quasi-independent
Luke’s 32 Bridge Food & Drink 0.2666450 1.647107e+03 301 BROADWAY 439.19300 3587400 ONE STORY GENERAL RETAIL STORE Quasi-independent
Nudie’s Honky Tonk 0.2624206 1.673623e+03 409 BROADWAY 439.19300 7290300 NIGHTCLUB/LOUNGE Non-Independent
Jimmy Buffett’s Margaritaville 0.2591134 1.694984e+03 322 BROADWAY 439.19300 14766700 RESTURANT/CAFETERIA Non-Independent
The Valentine 0.2586046 1.698318e+03 312 BROADWAY 439.19300 5918300 RESTURANT/CAFETERIA Non-Independent
Nashville Underground 0.2294781 1.913877e+03 105 BROADWAY 439.19300 16673700 RESTURANT/CAFETERIA Quasi-independent
AJ’s Good Time Bar 0.2215136 1.982691e+03 421 BROADWAY 439.19300 4318300 NIGHTCLUB/LOUNGE Quasi-independent
Lucky Bastard Saloon 0.2101616 2.089787e+03 408 BROADWAY 439.19300 8192800 NIGHTCLUB/LOUNGE Quasi-independent
Ole Red 0.1613479 2.722025e+03 300 BROADWAY 439.19300 16600000 RESTURANT/CAFETERIA Quasi-independent
Analog at Hutton Hotel 0.1507480 2.111746e+03 1808 WEST END AVE 318.34134 50593200 HOTEL/MOTEL Non-Independent
Dream Nightclub 0.1248586 2.898772e+03 210 4TH AVE N 361.93673 49245500 HOTEL/MOTEL Non-Independent
Tequila Cowboy 0.0290219 1.513315e+04 305 BROADWAY 439.19300 32960000 RESTURANT/CAFETERIA Quasi-independent
Alley Taps 0.0000000 Inf 162 4TH AVE N 205 361.93673 557200 RESIDENTIAL CONDO Quasi-independent
Black Rabbit 0.0000000 Inf 218 3RD AVE N #100 361.93673 1207400 CONDOMINIUM OFC OR OTHER COM CONDO Non-Independent
Country Music Hall of Fame and Museum 0.0000000 Inf 222 REP JOHN LEWIS WAY S 439.19300 41081800 MUSEUM OR OTHER CULTURAL ORG. Non-Independent
Skydeck on Broadway 0.0000000 Inf 600 B BROADWAY 296.19419 13629800 VACANT COMMERCIAL LAND Non-Independent
The Bluebird Cafe 0.0000000 Inf 4104 A HILLSBORO PIKE 329.26407 700900 CONDOMINIUM OFC OR OTHER COM CONDO Indep. Owned and Operated

8.2.2. Risk indicators

Total area sales (half mile grid cell), appraised value, appraised value relative to area appraisal median (2021-23), IMV status, programming rating.

Formula:

Risk = sum of:

Quartile Value (amongst music spaces) of: -Median value of appraisals in sales since 2021 w/in half mile -Number of sales since 2021 w/in half mile -Parcel appraised value as a pct of sqft value of sales w/in half mile

Plus: - Physical condition (1 if average, 2 if fair, 4 if poor or very poor) - Community ranked Programming investment (e.g. experimentation, community focus 1 - 4) - Community threat assessment - If multiple threats identified (cost, licensing, neighborhs) - 4, if 1, 3, of none - 0 - Site ownership - 4 if owner != property owner, -4 if owner == property owner

WOULD LIKE TO ADD CAPACITY TO THIS

risk_matrix <- nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  mutate(appraisal_ratio = 100*(medianAppraisal/value_sqft)) %>%
  as.data.frame() %>%
  select(appraisal_ratio, experimentation_ord, community_focus_ord,
         name, address_admin, n_sales, medianAppraisal, value_sqft)%>%
  gather(-name, -address_admin, key = "variable", value = "value") %>%
  group_by(variable) %>%
  summarize(quantile = scales::percent(c(0.25, 0.5, 0.75)), 
            quartile = quantile(value, c(0.25, 0.5, 0.75), na.rm = TRUE)) %>%
  spread(quantile, quartile) %>% # join it back to the original data analysis
  left_join(., nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  mutate(appraisal_ratio = 100*(medianAppraisal/value_sqft)) %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  as.data.frame() %>%
   select(appraisal_ratio, experimentation_ord, community_focus_ord,
         name, address_admin, n_sales, medianAppraisal, value_sqft)%>%
  gather(-name, -address_admin, key = "variable", value = "value"))%>% 
  mutate(quantile = case_when(value >= `75%` ~ 4,
                              value <= `25%` ~ 1,
                              value > `25%` & value < `50%` ~ 2,
                              value >= `50%` & value < `75%` ~ 3)) %>%
  select(-'25%', -'50%', -'75%') %>%
  group_by(name, address_admin, variable) %>%
  summarize(quantile = quantile) %>%
  pivot_wider(names_from = variable, values_from = quantile) %>%
  left_join(., nash_venue_data %>%
              filter(music_space == "Music Space") %>%
              select(IMV, name, address_admin, APN, music_space, Condition, 
                     threats_neighbors, threats_cost, threats_licensing, site_control)) %>%
  mutate(Condition_ord = case_when(str_detect(Condition, "Poor") == TRUE ~ 4,
                                   str_detect(Condition, "Fair") == TRUE ~ 2,
                                   str_detect(Condition, "Average") == TRUE ~ 1,
                                   is.na(Condition) == TRUE ~ 1)) %>%
  mutate(community_threat_assessment = case_when(threats_neighbors + threats_cost + threats_licensing > 1  ~ 4,
                                                 threats_neighbors + threats_cost + threats_licensing == 1  ~ 3,
                                                 threats_neighbors + threats_cost + threats_licensing < 1  ~ 0)) %>%
    mutate(site_control_assessment = case_when(site_control == "On-Site Owner Address"  ~ -4,
                                                 site_control == "Off-Site Owner Address" ~ 0,
                                               is.na(site_control) == TRUE ~ 0)) %>%
  mutate(cumulative_risk = sum(appraisal_ratio + Condition_ord + community_threat_assessment +
                                 experimentation_ord + community_focus_ord + #value_sqft +
                                 medianAppraisal + n_sales + site_control_assessment, na.rm = TRUE))
## `summarise()` has grouped output by 'variable'. You can override using the
## `.groups` argument.
## Joining, by = "variable"
## `summarise()` has grouped output by 'name', 'address_admin'. You can override
## using the `.groups` argument.
## Joining, by = c("name", "address_admin")

Risk exposure levels are relatively similar between venue types.

ggplot(risk_matrix)+
  geom_histogram(aes(cumulative_risk), binwidth = 2)+
  facet_wrap(~IMV)+
  plotTheme

risk_matrix %>%
  group_by(IMV) %>%
  summarize(mean_risk = mean(cumulative_risk, na.rm = TRUE),
            mean_appraisal_ratio = mean(appraisal_ratio, na.rm = TRUE),
            mean_n_sales = mean(n_sales, na.rm = TRUE),
            meanappraisal = mean(medianAppraisal, na.rm = TRUE))
## # A tibble: 3 × 5
##   IMV                      mean_risk mean_appraisal_… mean_n_sales meanappraisal
##   <chr>                        <dbl>            <dbl>        <dbl>         <dbl>
## 1 Indep. Owned and Operat…      13.8             2.79         2.42          2.12
## 2 Non-Independent               14.2             2.42         2.55          2.88
## 3 Quasi-independent             13.8             2.43         2.63          2.55
  ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = "transparent")+
  geom_point(data = risk_matrix %>%
  left_join(., nash_venue_data %>%
              select(x, y, name, address_admin)) %>%
              mutate(risk_level = case_when(cumulative_risk > 15 ~ "Highest Risk",
                                            cumulative_risk < 15 & cumulative_risk > 10 ~ "Average Risk",
                                            cumulative_risk < 11 ~ "Lowest Risk")) %>%
    filter(is.na(risk_level) == FALSE),
  aes(x = x, y = y), alpha = 0.5, color = "red")+
  facet_grid(risk_level~IMV)+
  mapTheme
## Joining, by = c("name", "address_admin")

9. Maps for report

  • Venue profile accompaniments (shows parcel and neighborhood context)

Here is an example - make a ggbasemap with a specific buffer area around the parcel (identified in the code by APN) and then just map the parcel.

9.1. 3rd and Lindsley

base_map_3rd_and_lindsley <-get_stamenmap(bbox = unname(st_bbox(ll(st_buffer(st_centroid(nash_venue_data %>%
                                                                                filter(name == "3rd & Lindsley") %>%
                                                                                  st_as_sf(coords = c("x", "y"), crs = 4269) %>% st_transform(4326)),
                                                                  300)))),
                    force = TRUE, maptype = "toner-lite", zoom = 16)
## Warning in st_centroid.sf(nash_venue_data %>% filter(name == "3rd & Lindsley")
## %>% : st_centroid assumes attributes are constant over geometries of x
## Source : http://tile.stamen.com/toner-lite/16/16971/25700.png
## Source : http://tile.stamen.com/toner-lite/16/16972/25700.png
## Source : http://tile.stamen.com/toner-lite/16/16971/25701.png
## Source : http://tile.stamen.com/toner-lite/16/16972/25701.png
ggmap(base_map_3rd_and_lindsley) +
 geom_sf(data = ll(nash_venue_data %>%
                     filter(name == "3rd & Lindsley") %>%
                     st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         size = 2)+
  labs(
    title = "Focus Venue - 3rd and Lindsley",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.

ggmap(base_map_3rd_and_lindsley) +
 geom_sf(data = ll(right_join(parcels,
                             nash_venue_data %>%
                     filter(name == "3rd & Lindsley")) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         fill = "red",
         alpha = 0.4)+
  labs(
    title = "Focus Venue - 3rd and Lindsley",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme
## Joining, by = c("ParID", "APN", "Council", "Owner", "OwnDate", "SalePrice",
## "OwnAddr1", "OwnAddr2", "OwnCity", "OwnState", "OwnZip", "PropAddr", "Acres",
## "LUDesc", "FinishArea", "LandAppr", "ImprAppr", "TotlAppr", "LandAssd",
## "ImprAssd", "TotlAssd", "AssessDate", "geometry")
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

9.2. Eastside Bowl

base_map_eastside_bowl <-get_stamenmap(bbox = unname(st_bbox(ll(st_buffer(st_centroid(nash_venue_data %>%
                                                                                filter(name == "Eastside Bowl") %>%
                                                                                  st_as_sf(coords = c("x", "y"), crs = 4269) %>% st_transform(4326)),
                                                                  300)))),
                    force = TRUE, maptype = "toner-lite", zoom = 17)
## Warning in st_centroid.sf(nash_venue_data %>% filter(name == "Eastside Bowl")
## %>% : st_centroid assumes attributes are constant over geometries of x
## Source : http://tile.stamen.com/toner-lite/17/33958/51361.png
## Source : http://tile.stamen.com/toner-lite/17/33959/51361.png
## Source : http://tile.stamen.com/toner-lite/17/33960/51361.png
## Source : http://tile.stamen.com/toner-lite/17/33961/51361.png
## Source : http://tile.stamen.com/toner-lite/17/33958/51362.png
## Source : http://tile.stamen.com/toner-lite/17/33959/51362.png
## Source : http://tile.stamen.com/toner-lite/17/33960/51362.png
## Source : http://tile.stamen.com/toner-lite/17/33961/51362.png
## Source : http://tile.stamen.com/toner-lite/17/33958/51363.png
## Source : http://tile.stamen.com/toner-lite/17/33959/51363.png
## Source : http://tile.stamen.com/toner-lite/17/33960/51363.png
## Source : http://tile.stamen.com/toner-lite/17/33961/51363.png
## Source : http://tile.stamen.com/toner-lite/17/33958/51364.png
## Source : http://tile.stamen.com/toner-lite/17/33959/51364.png
## Source : http://tile.stamen.com/toner-lite/17/33960/51364.png
## Source : http://tile.stamen.com/toner-lite/17/33961/51364.png
ggmap(base_map_eastside_bowl) +
 geom_sf(data = ll(nash_venue_data %>%
                     filter(name == "Eastside Bowl") %>%
                     st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         size = 2)+
  labs(
    title = "Focus Venue - Eastside Bowl",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.

ggmap(base_map_eastside_bowl) +
 geom_sf(data = ll(right_join(parcels,
                             nash_venue_data %>%
                     filter(name == "Eastside Bowl")) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         fill = "red",
         alpha = 0.4)+
  labs(
    title = "Focus Venue - 3rd and Lindsley",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme
## Joining, by = c("ParID", "APN", "Council", "Owner", "OwnDate", "SalePrice",
## "OwnAddr1", "OwnAddr2", "OwnCity", "OwnState", "OwnZip", "PropAddr", "Acres",
## "LUDesc", "FinishArea", "LandAppr", "ImprAppr", "TotlAppr", "LandAssd",
## "ImprAssd", "TotlAssd", "AssessDate", "geometry")
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

- Broader context maps (e.g. whole city with venues and some basemap stuff?)

  • Area maps for any geographic focus (e.g. North Nashville)